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^ f.-M 

A 

\ o oUdk^llj U jJI ^oU 

n 'i^jjl ^iLflj 

W (SUoljJ^I) 2u>o^l '<U*>JI 

W <LsJaiiiJI y^fi. 4^a_>JI 

U '4iiJaLiJI <bta>JI 

r- 2UI <LxauJI 

rt £L»£l Jx. S.va^aII 2b*o jJI 

rt (ausisai) a.AutJi ji 

IV '<LcQ-Ji>qJI i>^uJI 

or (2L5^cl) *<Laj \soJI 2b** uJI 

OV Slc^JOaII O bJJa^uaJ I ic^A^o 

*U a^jJI olil U 

ir Perl.\ 

lo Java .Y 

ia CT 

\f) Smalltalk.! 

vr Lisp .o 

vi Python .1 



va Fortran .v 

Al Algol .A 

AY COBOL A 

Al PHP.V 

<\\ Eiffel M 

<\r Modula-2 .1Y 

<n Ruby.ir 

M Pascal .11 

\A Pl/1 AO 

vr Haskell .11 

VI Visual Basic .IV 

\A JavaScript .1A 

\\r C++ .v\ 

in Scala.Y- 

M Self.Yi 

\ V \ !dU^ u£\ ! j^J! u> jS cS\ 

iyy TJalSCxo g-aUj^ ^ liU 

1Y1 I^oljjJI '6^3 A 

1Y0 Lao ^objJJ iak> .Y 

1Y1 dbljjJ ^_9jx-l 3 idJl^jl ja>- .1* 

1Y*\ 44>I^JI jQujjj .1 

1Y» 3^JL2i^JI jI^S^II jo i^^tjjJI i^-I^JI Jojj .o 

in ^yuibJ I hbS .1 

llo oUbHut^lg fi.lki.Sll ^ JolsoJI .V 

101 (^3^1 4L>>o .A 

101 2^°L)J-JI Olk>^-o 

loo 2LoLc olk>^-o 



r- 



After the "oU^ojJI u 5 >> obS ol>9 0 ! j^j ob£J! Ijju 5>S3 ^cL> 



I la J^c 0 f aL>JI <Keith Curtis c^S pjl^J! ^JlsOJ Software Wars 



J Ji^JI 5 t J^l^JIs SJaaJI aJLis^l Li^xa 4^J! oUJ Jj 




^.9 *<L>^o>JI 0L2J fUfcU *<Lixjj^JI i^^k>Jlj *^OJj^l j-^j^a)! IjJb ^-9 lil ^Iac 



^-a ^JgCLaJ u9j-sy ♦)! lt*-" O UJJa^guaJ I jo^Ij i9Lbl £-0 .^jI^J! Italic 



^ Ljg H L&lo> 1 J^Loifs tj^o-Lvbu ^i^! ^Ul Js^l ^yLaJI jLv-o^l 11^ 

,2Lolc ^j-sJI j^Jtfl^JI gjaO^aJI 2Lol> ^j^JI ^^uJ ja^o ^ c\y&\$ clijw^SlI 



£ £ £ 

.'<L9lj^l yg\ %)y>\s 8ajjj> ibo ajl&kls cL>l SjIc^ 



^j^U ^ J5$ "S>> *<Lu>c J^aJ! a^! ib^il j$L&\ <uk. 



JS^S J^^JI j^j *<LJj^ x&>JI -^o JJiiJLj 2^l3>? ^LA3I i*£uSo cjj> 




2L-ujLj1 2Lal5 Perl J>,u Ka9 ^ L^slo cJLobu ^J! 0L2JJI ><&l iiu&» Jj e 2u^ojJI 

0 U3> Python ^ J_Ji 5 PHP 5 Smalltalk 5 Java 5 C++ 5 





^Jl SjLSj^I ^>jLi cj>£al oUJJI jixjuj Jlssj La*9 Sj-£5 jL^l 3i>^JI *<Laj>jdJ 



#♦ 



|oX>j <dJU Stfcl v^-o/J gJI^JI LjU cIja ^L*o*a)I £_a>aa1! j$j> JjLo! ^ 



j.9-£j jl ixJaro^ ^Jl*£lJ$ Jj) ■QJ Llo j^L^JI . *<Lj jiLsJ 1 3 £.15aJIj I&jU^-^I i-Q-^^j oL_*bljjJI 



.Sj^I^oaII j^L^aJI^ oU^biAll j^o ^ jLuj^Ls ^yLo^iaAl! jl>^3^! 



* * + 



j I g^caJ ^! vlhSCJ^ 4JLc5LQ *i>^0JJ 4sJ foJsJ ^9 iL^l^aJ! Jx. pjlc Co! duo 



J-*JiJI llflj j-o -^b-fc 0* iSS^' <&1JI 4^^' ^^r^ 1 -^S^ ^ >°^' 'i^*^ 1^ 



^jJ! »-JL>JI ^Jb Lo 5jL&s j-^a-o ^-oL> <^-9 'ij.99 2LaJ JX9 cjo^bl ^ 3I ^^^lo Lol ^49 
Sclfl5 pjJj ^ I43I 0 ..q.«j Ljj^j J^J ji^J -^9J bz^b .LjLjI <iL>I ^ cjAj I 




+* ++ 



cU-ojI b^bl^ c^^ii J5 j^5o l-<j>J c<j5 lilSlio .2Lo*-ojJI JSlAoJJ L^JUlo iSjjis 




J jL^I Jx. jj^ai j^b ^Jl9 dJi Jl L9 o^sJI ^^Is Lisp J> 3 >^JI ^1^15 



Lisp ^.9 ^1^-9^1 pljj>JL^I Sjl5 v-Q-O-j ^-o^j^aJI jjjI^S^II p^KJI i^Laj^ 

«! L yil^_9^l C^flJjl JJ^jdl *iL>>0 ^Jl C<Lo 3 loJJLC» JJV^ll J.9-QJ Ijjill^J^I 



4j|jJI 

* * + 



jl5^ ^yi c*+umjq <u_c custom UJ «^ r c05CJl s>-\ Sfi.ljAJ ^^iJI aJj! ^9 c*Ji5 ^31 j5jj! 



Ujlic *<LJj> ^_9 aljiLoj <lJlc cJl-^oJ ^Jl sJ^jI cxj5^ 4jjjjJ JLoJI ^i-^ obSCJI 

. J,ol5 J£Aj ScIjaII 4s^o v J^. ■Utfil J5Hj 



c c p 



.^t old ji aj,jjis a^bJi ^ 



J^sj psil ui^5 ^i>cl j5f (oJ J>-cj ^ JLiA5 9 < J^aJI J5_ai (O^Jx. l^b^u 5xj^> 4-a! ^1 




5 ibLaj JSo custk^uil SLo^jJI ol£>!$J! Jac < <LA-cCj .ya^g Tk 2L*5Co ^yaJaS j^slj 



.wxPerl 4^ JI ^Ujj JiDf J 



^LjjJ! J^sj uL^5 ^i>23 0 I J-^9^!l9 £ cJj^l ^ cuj>J!5 JJjJI ^5 JbU ^ icj^j 



il^Jli J->JJ -^^s J^£^ J >=^ Lfe^ <LujI5CJ! 4->^ojJI plA>o-ail g-aljj^ J5ULo ^>^j 



.J^hs^l iibjJall jL^>l jqj ^5 L^j^Lo^ i^ojJ! ^3>k 



joJ (^h^SjlJ SIsJ ^-oj-o) Linus Torvalds jjJIijsj JL^JI ^Jx. 




^9 OS^I ^> 0^ >JJ j^aJ! ^!^5l i^lj^ i^jJ! JiLxJI ^ 45jUaJIs 



4^ojJI Ola) JJ.3 



* * + 



fJLc ^-9 L43LC0 LiL>^ £>J3 a Ufllaj Lo fufcl ^yfc 3 JaaI I cL^SlI aljfc ^JjjJ UL>-^ 

IjJb J^ii^S >ols^l jio^J i^ojJI j-o jj>-^Oj LaJb j^>^j j!5 JLiaS /i^ojJI 




£ £ p 

.GTK B \ QT Ji* 



ILslsa^J I olid)! ^o b5 j\$ <Hardware jbsJb aja^ i^Uijl oli 1^1 ^1 ^<p.,^ll 2UaA^ 

j^uL^>J! j^J5 Macros jojSloJ I IjIaj 



^ ^is^J *<LJIjj>^I '<L>^o>JI ^^Lo-uaJ! iJLc oLaJJI £_o -^^>JI >^JI 



UjJq^uj I Scl>5 J^b> j-o '<L^ojJ! obaJ Lib^ Luic. Jfl acJ b& SJaJj^JI O bJIa^suJ 1 



Programing Paradigms lfjj)l ^Sli 



JsUj 5 <*<LJ51! £iboJ! j_o £io^oj ^ ^y^j uLjjsj J *i 4jf ^1 <L^u3 ^j>o 



»wdfc!loJb j^5o bo <uJj! ^a Jj Laj^L^J j-£oj ^ J-^>l^ c^J La ^x>Jli Sj-dS 



bo ♦lido . U^uAaj 2L3I y>\ 'i^QSJ , _a> 2uUJI , _9 *<Li^iJ! *<L^o ulli ^Jb>JI 11a , -9 SLuj^I 




2;iLojJ! oIa j-o £i.9-oj J5 I&Jlc ^^sJI JoliLJI La >o^I ioJL>- ^ L^j 



ol^9 /<Lo^ojJI JS Lluall 4jj_*£jLo iibjiso, <UJj>j*3 4jjia3 ^-9 J-^^ 3 ' ^AO-^ j-ta^J 

I j Lu^j I JiSlI ^o Ajjjill^ aja&JI ^>o,j 'io^oJ! ^ ba Sjo^laJI 2LLJLoJ I ^iLajJI 

.i^ojJ! Ola) ^o iJo^oJI cdlbA 




Imperative (Vb^) V^' 

^yj ajasJI L^>J ^jjju^ .j-oljjJI State i)L> j_x2J ^J! Ja>JI i^>L3 y* '<L-aj^>JI *-0*£U 



Non-Structured Programing SLoJcuJt ^ 2L^o>JI 



. MSX Basic 



.GWBasic 



. Focal Joss 



. Mumps 



. Telcomp 



.COBOL 



. Machine Level Code 



. Assembly Debuggers 



.MS-Dos Batch file Lang Jio gj^jSLJI olid ^ jzsus 




1 3 4j>^jJI ^iUj 



Oj Lu-J^o *<tjh5 *<LqjjJ^j Ift3j)4<-Ais g-a>.'A.U L&ji^ i^r*-" ^-P*^ j^ 1 -^' U^-^-AJ *<LIjLqaJ 



aia "Labeled" 'aJ^slq $\ iAi>o j^5ci9 jJo^i^l Uf .(J&l,^ ^ 4Ia> J5 



*<LJ!jj>^I i->^jJI ^.i J-^-^ibJ I ^ J-Jib cL^^I ^ pK-;.; ^ Subroutines 



Structured Programing 'ioiaioJI 2L>wojJt :L3tf 

|Qjfel ^-^>l) ijj-a^l *<L>^ojJI ^aJj ^aj>! _>^52j a.1 I j-ct *<L*ajJI5 ^.a^a) 1 4j^ojJI 

^-o Aj>JI 5! GOTO Sj^fl '<Uaj>JJ L^JIjb 4.a\o-<a\\ ij^ojJI Oj^^jM^ .(i^ojJ! y£\$ 



: 2 a1q.;a1 1 j-°l>JI *<bh£J ^Iaxo^ Sj^JLo oL^lq d>^j Ab&$ .L^oIa^l 



ic^A^o ^oljjJI JSL& ^> Edsger Dijkstra Ij^aouta jL^^I iibji> 




oIa^aJJ J>5 J^l9 J^o^j 



'<kla^J! oLjLJI SliU-o Jx. AAisu ^dl^ 4a&jlJ1 *<b**>Ji Jackson ^>u5L> iajjl? .V 



c La^oi b *<L>j^iLo 4_aiaJLaJ 1 oliLJI fi-.i^w^>:;J 4. La I $y^> &*3 J-9^l ^-1^ 



. J. Dominique Warner A 



. KenOrr .r 



. Michael Jackson . V 



UT ^ 4j$£a I43I JLc 4a1&a11 g-oljJI ^jj jS^j Low Level ^jJI 



pJ^Lo ^JLaLtfj ^jsjj-o^I jutei l& 9 :Sequence 



:Selection 

.if ... then ... else ... switch ... case Jio ^LisaM oLKJI J^j> ^ 
J-^u ♦>! ^Jl l^flxsil 2LJac.j1jJo3 a-u^oj^o^l Liiii L4J j^£3 5 :Repetition 

while ... repeat ... for ... do i'i^bnJ! oUKJI J^j> ^ SjU jojlj ^Ui 5 .U 

. white . . . until 




1 3 i^ojJI (TilflJ 



ji^J ^lJ! i-^jJI 0L2JJ 'i^o Block-Structured ^JK-^o Lulc. Ujj 
jJI dJ-atLcOflll 'i^bAJI oUl£JI 4_JT>3^' c^- 11 cr^s Comb-Structured ^> 



cl>>f 'isujl ^ 05 i0! Block Jl Ada ail ^ JUia .sIj^JI >al 5 S!! ^s^' 



.DECLARE, BEGIN, EXCEPTION, END 



Procedural 3loI y>"i\ 2i»*avJI 



.aj^yJI (State) aJbJI Jl 5^13 >J! J^u ^ SLoj^JI ol^k>J! Jc 



.j-XqoJ! i-^jJ! 4Jbji^J! ^ Ij^> i-ojis !jLio3l £iUJ! pjJM ^ ^ B 



Variables o I use*} 1 



alifc Value *ijL^o 4ja^5 J-a^J y^klQ "yjp" iJbJI ^-9 -J^ii5 Sjj>!s 4a^5 Jaj>o J 

J ^Ca-o *<Uh^J J Ji3 i^uJI j£_k> ^-9 g-alj^J! J L<aJLk> i^jlj C<-q<J Sj^J&o 1 



<dUA^3 g-oLjjJ! Total |0_^b y-JiiLa UjjJ J Jiid Jsu-u<J JLioS .4-aJjJ! >^2j 



Constant 5 f Static Variable o 1 j^feuJJ U5 > q.J:;.s^ 

.Pi i^i , Ur>o y^sXo "Silo 
,gJl...d.^j /i^aij 4a-*9 ^1 Ja^j jSouSAiLo "j^" j-^aIIs xJiJI liflj Jlo Jj>^j ^! PHP 5 



my $number = 1 ; 




ail CU9^J! J-cS^a)! Lie! JI^aJI 


lift ^9 








my $number; 




• 

•J 




my $name = "Ali"; 






my $name = "Tomy"; 








I3 4j>t-ojJI ^^Uj 



ij^o>JI oUJ jix-aj variable identifier 5 l variable name (O,,^ b name 

.Value >a?aI I (0*3 ^49 Tomy Ali Utj^aJl ^>slo IA& 0 I ^^lsj ^Ui^ 



Arrays oI^a^aII ^1 jqjI^DI .r 
.iLcJI cliA-^l cU-ojI .a*3 Ja^o ^535 b-*^- 10 b5 liU <^J^> 





j viUi^ 4i>-ljj (0*3 Sjx. j*sOa (Ojl^iill pjj^LaJ LuXaj 

.lAS^s ...^JLSJI >a*U "V 5 JgSil yaiatt ^ Lj 4a31a11s 



5 *<Lojliil! j-oliaJ! xj^>J ^JJqj ^s^qjj 0L2J ^ILlA ^>>l &>o 



my ©students = qw\Ali Yasser Salman\; 



J5 ^Jl J^$J! ^3 ^3 cr^ ^ students j^aH 

:io-tiiJI (oi \ aja^Oj io-ci 




8j^j>^o io*5 J3I SjLsij ^5 "jA>^>" ^-Jj^J! oli io*iil! U jJ^u^ ^JLo >°^l 



115^ ^Jx- Lfej^j ^J! oLkaJ! ^ >*i$a! ^)La Isuk .Ali ^ Ulllo ^ 4AjliiJ! ^ 

JL>*a)I g^o/j ^ Lo-o villi Lj-x.=>^jf j-^LsJ! ^jjj S^lcl 3I <uJljl ^1 j^jlc^ i^Lbl S^^lo iojli 



I IAa ^ <xJ I j*Aj 



Hash .wu^l^l .r 



s jL^ -value key ^biLa J$Li> Jx. Ji*j ^\ 0 f L& Ljaj U ^y>\ cL^f 



.^JL.^b-J^S ^^Jl ^U 1 ' J^S o^M' 



my %employees = qw/ 

05650005 Ali 
05900099 Yasser 
08999279 Basem /; 



. o ^JJaaJ 1 i-AIo^aI! jo-ajl J^o^JJ ^-Jlfl-o IftLa^j l/A§ SjjSlo j^h^ 



foreach $phoneNumber(keys %hash){ 

print "$phoneNumber = $hash{$phoneNumber}\n"} 




1 3 4j>^jJI 



Null value *<UL>J1 4*^1 .1 



C^J>*J! £_-o!jJI jL^>l *<L-ailaJ^I cLjj^l ^-0 ^ <<L9j&0 J-cC- 'ia^ Jx. 4a^£ jLoll 



my ;$number 

if (def ined($number) ) 

{ print $number } 




{print "undefined value"} 



J> defined 



Workflow ^IjjJI jLluj .0 

t j Lass. I £t-al3jJ! ^ |oio^l jLp-Si! l-JxJ Ij-Jx. ^gSLuus L*-ol3jj ^j£3 Ujjlc. 





: Jlio Sequenced 



my $number = 1 ; 
my $number2 = 2; 
print $number+number2; 



^>>! 5>o5 Control Structures J^sJI jcSC^JJ oI$j! J>\ -gb^u* jLp^ll v-J£.l 



^13 jJI ^ c±>- \-JCu\ i>W^,u's "lit" ^isj ^Jls if 2laK)I pL»^lj 



if ($user eq "Ali") 
{print "access granted"} 



J^xj f J£J Lftaxkj 0 I j^jj 4 ^3 J^>j A-5b SjL£. LjjJ ix^oj JUa I 1a 

<if iaJ5 ^LJj ^1)1 ^^cuj^iill ^ U !&ylA\ .SjL&ll J^jJLlI §&>J 2Jl> ^9 iaiii t ^-°l3jJI 

j I ggJo^aJ 'J^>- .Ali 2Lo3 J^>o j^soaJI J^jJLl! SJbJI ala> 

.else '4*15 pljo^-J jj>k> jo^j JJi 9 .tiib^o^ ,b>2JI 0 ISfi} j^-Tf>ol IAIj 



else {print "I don't know you"} 



."I don't know you" iL> ji^j Ulio ^ 5 else ^9 ^^>s^ 



e ^i>>) elsif 










• * 


elsif ($user 


eq "Fatima") 




{print " Hi 


Fatima"} 





*<La^ Jjb ^5kJ ^Lill Jo>Al! ^1 y&.V^i L&bcu jJo joJ tils <TAli *<La^ 



else ^sbl^i % 



Unless *<Lb >£J I aLoJ I 

0 L5 fit J$Ji3 Qjto .LoUj if a*b>A)l SJadJI ^^aJ^ J^vsj unless 2uk>All iLoJI 

i>>2J! 0 15 Til J^ii3 LS cu^> if L5 La ^^Xaj .135$ 115 J^l j^h Jo>iJ! 



unless($a == 10) 

{ print "the number isn't 10" } 



h>yJii\ pta Lo "V ^^J |oJjJI |jjb" iLi> 2LcLbj g-oUjJI p^iL^J JISaH llA 

♦ * ft ♦ ^/ ** ^ 



if($a! 10) 

{print "the number isn't 10";} 



Given- When 3.1a» 



jUtui jj^>j LuS^j if else *<L^>JJI Jj^I ^ jLsS^I ^ ^j^j jU>-SII Jxsu ^3 



given($name){ 

when( "Ali" ){say "welcome $name you are the 1st"} 
when( "Saleh" ){say "welcome $name you are the 2nd"} 
when( "Hashem" ){say "welcome $name you are the 3rd"} 
default{say " I don't know you " }} 



bJI d>>^l i^Lua* ^JxQ name >AsaII *<L^ ^IKJI uL<5 La i*L>^ 



jJL^> ^Jx. p^i^l j^io ^ku i_a5^A)l jo^sJI when i_Al5 Lift 

.cuUj J *<L^lj^l 9 \ SLoIaII ajbJI ^5 else Jac Jasj La default J l&Ls^ 



Switch case 21a> 



0 



| s OlsAS 2bbS3l olaiJ! ^ ^ ^ Jj^ J± JLJ! 



lj>b switch cx-o^ switch case pjj>:;,^ given when Lj>! 5 ^ ^aJl 0 L5 




I3 4j>t-ojJI (TiUj 



: Jlio /iaS^aJI isM3 case 5 6jL^>l jIjaJ! j^aI 



use Switch; 
switch ($name) { 

case "Ali" {say "welcome $name you are the 1st"} 
case "Saleh" {say "welcome $name you are the 2nd"} 
case "Hashem" {say "welcome $name you are the 3rd"} 
else{say "I don't know you"}} 
Expression Modifiers 



^,49 iJ^I oAjfc Jj^j J^sj Expression Modifiers j-oLaill o"i^ .£>^l Ji^> iJ5 



$bool = 1 ; 

$a = 5; 

say "I am in love" if $bool; 
say "false" unless $bool; 

print "Perl Programming...\n" , ($a++) while $a < 9; 



Lo SjLc <jIjX^JI jjI^ j^^ ^y'b <3juao j-ol^l -UflJff jjSo j;1^>j jLp^l! jgsu ^ 



& jlj-S^JI *<LJac ^uj ^XJ ^5 ^jiL^ *<L^ djjj jIj^c jIjJo SjJIj J5 

jL^i ji a§ l^ SjI^j ^ u ji jijSjJi jIja^ojI pjx. ^ywx; ^Ujj5 ^j^ji Sajuj j^^ji 

.Infinite Loop f^b U li^s ^13>J! 



for($a=0; $a<10; $a++) 
{print "loop $a \n"} 



:C isJ Jx. L^JLia for loop Jb 



for SLaIS 



jJLs- 2L9 ^osa) I ^l^i^l j-o ^Jl >ol^l jjjg^j ^JJl^s ...Sj^j cL^ul H I 



IjjUII lift Jx. J^ouJ o!>o 





I3 4j>t-ojJI ^^Uj 



05 Scl^ cu_^ v JJ ^ Ste/> for Jl ^ 4a3IS J>A 3 0 l Lu£aj Jj_o ^-i LbJ 



for (1...10) 

{print "looping 10 times\n"} 



Foreach 31oj> 



:"^Lo /4a31§ j^ollc i^lad l^o Jj>Jl^ j 



my @list = qw/ Ali Sara Yosra Mamdoh/; 
foreach(@list){ 

print $_, " You are a member of the family! 



11 . 



; } 



:'<b^J! .<uUl !You are a member of the family 



Ali You are a member of the family! 
Sara You are a member of the family! 
Yosra You are a member of the family! 
Mamdoh You are a member of the family! 



While 4k> 



*iju5to j-o^l iii' jI>5ol) a^jj Lbjt <ftjLxcQ 3.Ja.9j a^flj while jljScd! Sjjb 



$a = 10; 
while ($a! 0) 
{print $a--;} 



S_>j!jJ! Laa^u Js>JJ! 0 15 LSli ."V" Lj>I$ l^&l s-o > A?a1 1 SLa^s 




23- 



Do while 2k> 



.do while ^^>o^3 La d $f 1&l>^ Jo>U 



my $a = 10; 
do { 

print "this is a do while loop"; 
$a++; 

} while ($a<10); 




1 3 4r>t-ojJI ^^Uj 



jl J^jJ^JI^ V» jhjiteAll 2uu§ Ullo ^ .j.o^:;nj^h while ^ j$»$aJ! is>DI ^15 $J 





do while 



Until 21oj>. 



^-o ,3-0^10 i^jJLj Ij^j ^49 while o p^Jij LaJ d.^a.Cc d,J^.9j until p^iS 
^1 while ^i^j>j Lm^lo Uajlc SjJIjJI while ^9 ^ib^l hyi] 



: Jllo t< 3ii^xo j-ct Jo>iJ! g-x^u Ujjlc ^p^i 



my $control = 10; 
until ($control == 20) 

{ 

print "going up until 19"; 
$control++; } 



4s** jj\ ola) JJj 



Regular Expressions ZLJaajJ I bd 1 .1 



1 J_aladJ *<La**>JI oLaJ Ubji^j SLJaoj j-oLsj Regex I j Lo^> 1 $1 



^Jl string j^aJ! J_*b j^v^l j^jJI J^p^ JLjJI J^J' ^ 



$string =~ tr/[a-z]/[A-Z]/; 



$string =~ tr/[A-Z]/[a-z]/; 



.SLu^aJI g^l>JI ^9 Find and Replace p^iij LS .ku^J b "fufcljjl ^ic" 



$string =~ s/Ali Salem/Ali Ibrahim/; 



^Ic 3j^l5 oLJac. cI>j>I J>^ 3-3«-a>JI 2Lab iiio^l Lulj U5 *<L^>^>J! 




♦ ♦ + ♦ * 



// ^ Jj^ "LJLc" ^So ^J! s 4Ja4dl ^UoJb eij^j Lo ^ ^^Jl 



.^1 Jli^JI ^ Lyfj 




1 3 i^ojJI (TilflJ 



Event-Driven Jx. 3 Jaua&j I S^ojJI 



:^io <Events ^jj!^j>JI J^> ^ jg-^j^l jL^ ^aj^o *<L>^>JI ^ 'iiyj-kJI ^ 



oL&>l$JI *<L>^ojj j-o ^jl> ^Jl Ljl> '<L>^ojJI ^ 'i-^-^JI a.La> j-a J-olsoj S^Lc .Threads 

jojbl ^ c«jaJ5o a£^ 'i-o^jJI jI^S^I^ ijco^ojjJI oL^-I^JI i^jjJI SLJTji^j i^^jJI 
^L^ol^. v_5SI !_>*S_£j! ,J>a3 cxj!" cuJLiJ! J_^AJ! 2s i^a^J! ^ 4_qj>J! ai_a k jL*<» 



.iojjiJI GA& ^^Lc Jiiij Jac J-aLjjj cLiol ^jb jsilluj^ui 



■ I ## - ♦ A 




Object Oriented ;Lu&l I W>JI 

(5 1^ olaabJI Sj-^SCJ! C)15>2J! JoL^I ^ 5j4^ i^ojJJ ^IjOflJI 4ib>iaJI 



Lo jjjbJI^ pAiiJI I4! Jj Taja>- La cxoxj *<UUAll ir*-ajJI .Lllc- Lft-dc j5jj f>L$l 



^y>ojbJ! ^-JbJI juSj ^SU^ jSjiaJI a la CJLo *<U^ojj olsJ Sac ^a-o Jlc Iaj^Lj^ Jc 



ol^^l ?c^23 ^5 '<Lo^ojJ! ij^jJI &A_a> jcvcjJ 2 2LalJI la-oil^ L>bJ *<L>^>J! 

Splc J£JL) olSjAll^ cl>pJI jih3 ^ 2ua§U j^sj 2u5-u* *<bb£] ioj^J! 



c^Lbl ^oJ! 0L2JJI ^ j^lSO! j^J! Uj^s PHP 2LaIJ ^i^jJ! ua^bf lii^^ 



4s** jj\ Ola) JJ^ 



<jb-qJI v-o-Ls- ^LsCJI ^j^j liLo^ S^l&l p^^oo 'iiJ J5 ^Joi <JlS o& b^b b^flj U ( j*u)$ 



^>»^l *<Ilo^JI 0L2JJ 5! Eiffel Smalltalk oj Joa^ Jju i9>^J! 2Li^J I *<b^>JI 



&Jru >flWsj 4i>oJI 2L^3K1I i?-o>J! ol*J ^ 4& £j>kJ! J^I L^o^ 



j^^l ^'^kia ^^}\ l&bsi&j ij^j^l s^>3\ <i^>J isJ J£J AjO- Luta i^j^H 



'ij^jJI^ iibjiJlj 4KJ^a)I *<L>Jl&a j-oj^aJ! *ij>>- ^^Sl! ^y^JI ajj! O I j-jg^oJ 1 

La> Stal 'A2JJI Ujbj>o ^1 



Sj^c gyij^ail ji^J^ LftJ IjI^Jj *<Ljjj>JI ^-o Ja>J ^Jl Jj-o 4sJ5 i^ojJI ol&l dJD 



J^j>JI sdLJasu>> 5! «Ls2ij!^5l 3cl>9 ^5Caj ^» JJlo oljL^ jA-a^i L ^LaJI ^3bJ! iii5 jo>^>jj 



/<La$^I oljLsJI ^ L^j^s «d^3 ^Ju^i ^^jSCJI^ 




I x^j <5jLac-b viUi^ JasJ Jai3 3jj>I^ 'dsujh ^JUa» jjIsaII jlsAll joLa^J^ 




1 3 i^ojJI (TilflJ 



Paul Graham "pWj^ j^" ^^ji Lisp 'H^j s^&zJLi j£) y>~\ jL> JLc 



43>a*j foO&o j^l ^! sj^j ^5 Lisp LloL>0-J $A bj>bo >^ 0 I» : J^ib jj>T ^5 



j^dl JJ£i J\ 6 S$j dUi A&^ibJl obJlsat ^$bJ iuoA^I cx^ rifeLJI 



iJJi j|.x_cf isLbl J^j> j-o 4I4 aj o^-aj j_^^J! 2LJac ^-o- :j3-b^3l .1 




Jjj^o <Uf ^ls~ ^Jl jJ^JI *i_^ajJI Sl5Ut-o 3.Jac ibLoJ JSo ^ 

jo^oJI lift J5 ,2l^ojJI aJIc ^9 4j l5l^-o aj ^ Objects oLjI5 5 f cL^I 

.Methods JLasI 5 Attributes (oM ^L^> <d ^515 ^515 <oI ^ <U! 0 I 
j^uL^J! p-*§ ^JOs 2L^su 5 f i-yaij 2Lu§ ^oJu ^15 2LsjU Field type j^uL^J! ^I^jf 

uJU jx. SjU. ^ Class ^^KJ! . 6y ±\ *iJL> a * >5hsj 0 1 Field Value 

\j3 jx Til .4i >^J! 2us3IS3l 0L2JJI ^5 ^1 431 J ^ ^ tdK ^^J! 4 S^lc 4}I Jl aL^I 



.U £$3 objlS jl^J Jab- jjj^o ^^5GI ^1 ^51! 



SjJjU ^15 cLiJI jX^j ^ Ka9 4.uiJ^j 142*4* ol^O dijb Abstract Class 



"4jI joJI" ptlU^xo Uj5i La .jj^x)! ^^J! j^\^> JLc objlS 0 f 



^^Kl! ^1 j*^I JLa^ls j^jLo^- J5 JUsjI 2Uac. ibLaj ^ 5 Inheritance 

.>!s3 0 ! ^1 jbmt -oi* 



4>^o jJI olaJ JJ^ 




I3 4j>t-ojJI ^^Uj 





4i.li.AJI i-JQjJb <LcSL>0 AJUQ OljL-aJJ \sC^C 










abstract clas 


s Vehicle 




abstract clas 


s Sedan 




class Camry 







jo^b jjj^q ^^So bta 4jf cu^> (oJ&d oLoi^JI ^ 'ILuLi LjUjI UjI ia»^3 

*<L5>o JS Lflj^^o uxj ^sJI i^Ld^l JU^I^ j^uL^J! ei>^j (iL5>o) Vehicle 



j^jL^- l&Jx. uLouhj^ Vehicle bo vi>>j Sedan j>^o bhul ^ 



^pjLoj^ J5 ^>ol5 (O^ib 131A3I (jsJL^) ^ J5 JbaSis 



c^ll ^1^11 *<*j$* 5 ^Ij-^ ^-^s 



Lg5j^3 ^ liLJ S^>^ oLoi^S Vehicle 5 ^ J^J liU) JI^JI ^jJ^j La 

bil liL^cui (oLi3 Lj^l ikLaJ J£j ol^J! T-bii^ 4$lj$JI j^jill ^y^JI oLti^5 



.Design KJ^>a] 1 cusq. jljiDl 1>oj l _ ? JasJ! 




.^L.oLjjj -y, 4 ,n , asJ I oUJl^l i^auJI 



*Usdl cIj^ 0 I liU ^ j3j3 (ob3l53l J^Lai JLcJ) 2uLcl£> olkk^a .r 



ULJI 0 ! ^! Encapsulation (uLJidl) 2LLau5CI 1 ^-o ^La SuixAl 1 i^jJI 



5J&3 ^131 ^Jl Messages J3L*_>J! JL*jl ^ ^ l^bA^i ^ ^ ^315 2LoL*JI 
Lib j^-T ^15 ^1 4JUj JUjI SjU s t >iUI Jjas^Lj pj^J! psaj 6j S ^j 



^ ^1 JJUjJI 5 ! Js^sjsjJI SjUj Protocol V^'s^ ^ ^ ^ 



.^jlXJI tiLai 2i jsaII Methods JlaS^I Lfljli ^ I4&0 05!^ 0 t ^JlsOJ 




1 3 4j>^jJI ^iUj 



£ £ £ £ £ 



j5U! Joilsu *<L^S 4ij5uu J 4j>L> ^ Lib JjUj 2UU j <£U\ c^kct ^1 Ja»}*3 La 

^15 J5 ^1 Black Boxing cb$-oJI aijjuoJb 2LL&s) 1 .JL^I Ijk pLu^ 




^l$jf 2ub*2-a»l SjjJ L43L j^Jjs SLs^JI i^jJI joj^f ^ ^5 Polymorphism 



JLj[su 0 ! Methods JLai&! ^J! Aail djjAsdl Sj^o !j^> jo^qj Lul Uj 



JLs. ^Lfll SjAi ^ 5 Method Overload jsJ^^U J>>2j La ^ IjUoj! ^5^!! iJbJ! 
Parameters "oljLpJI" ^ ^ iok^o Jio! iusto ilUjJ *<bL>a^^l 



jumpO; 

jump(Int myNumber); 



. O UUq] 1 3 JjLjjJI j-a 3.fll:;,S^a o^b- i^lad ^ ^UaI 1 j-o SLflJo^o ^Jcpf j^cp 



J5L2» Method Override ^ b U ^ 2Lpj*sll £>^l 2JbJI 



Signature ^1 ^ J^j ^1 ^ ^ ailob cu^> aJj^I 
UJ SjjLao j|$Sf isbbb Method body ^ ^uJ 1 (0^> ^ ^ j $2u&l 1 



public class DaddyClass{ 




public void aMethod(){ 




//do something here 




}} 




public class myClass extends DaddyClas 


s { 


public void aMethod( ){ 




//respond differently from my daddy 




}} 






1 3 4j>^jJI ^iUj 



Multiple Inheritance £>jl$dl jjju 



Jl aiLb^b a^! s ^ _>is! ^Jaj 0 ! ^ ^^^v Interface o^l^Jb U 



^ Access Modifier J^$JI fdSoj La Ij^l5 I i^jJI ^ 

joX>J ^lojf *<L^ojj 3*1 J£J Isi^h Data Hiding 0La3kA.ll cli^l ^a j^-Tas^ ua^u l^J^- 



:UjjJ liL> ^ ^sCJo. ioJ^o 



private 
protected 
default 
public 



Functional Programming SuAJ&gll 2^o>JI 



55[cl&a11 oUUI l-o^q i-^bdl .JUjJJ a^scS *<L-ui^>JI Ulsu ZLaJfr &J 1 *<L>^>]! 



0 I jlXs! 'i^^A^a ^ i^J&sJI <^_>JI o' ^1 Ls* l) 1 -^ 1 - state Mutable 



Lftif cv^> Uj^c.^ JsL^la i^ojJI 2Lal5 Pure Functional i9>*aJI i^Jb^JI 0L2JJI ^lU^ 



Code References 
Closures 



Jls^JI^ Functions LaJ ^i>aj U 5 f Subroutines ^ aISo! ^ 0 ! cuasj 

LaJjf 2J|jJI frlcJO^ib clioS^I^ -k>iLQ Sjj>-I^ S>o 3JIj 




1 3 4j^ojJI ^iUj 



References 



.oLa^WH jLCo ^Jl SjUjI ^x. SjLx ? Reference s-a La 



A^f J> 2L5I j^l a^ojJI ^ IhjU UaISo J^l Ujjx Jli*5 .Jc^ I43IC0 Jl j^j 




*♦ 



my %hash = (one => 'hello', two => 'world'); 
my $hash_ref erence = \%hash; 



hash_reference yjad I Uf hash SLjybJ I ^1 ^Ul > A;a1 I 0 f La 

.iolall ^Sos ajlk^l ID Sb^jJI olaJ ^9^b fj^ 



,4j$suo |O^La<aJ! |ev4d U ^jLcaj ^D! >o^l ^Lc JSLio JI^aJ! *<ijb5 4.^5 ^ijaj ^s? 



.2Lpo 'ilLjj icLb SjLc Jsuuo JLiuaj (juj jil 



sub hello { 




print "Welcome to my Website"} 




*<L^>jj 'iJUj 2LcLbj ^ hello 2L)b cU3b L 








hello() 




Parameters 





:^Us JliJI JasJ lil .Sj^uJ! ^1 4 




sub hello { 




$name = shift; 




print "welcome 

ii • 


to Ali's Website 


# 

print "welcome 


$name" ; } 


hello("Ali"); 






1 3 4r>t-ojJI ^^Uj 



2L1IjJI Jj>b ^3 tib^ l^Ar^LaJ ^^saJI ^-J 4jsuS lis^b 5 U3f i^^3 ^1 



Xjm^ja Shift LJbLo ^5 6 y>\ J\ 2a1 ^ uak>J fuEll JLii^l 2uL£) £>b Sjx. ^1Ua 9 

j Jjsj> *<LcLb SLIIjJI i>^3 os^-^ ^U^s Name > Aail 1 ^Jl SjjjsaII 2lq»JJ I 



j^jji asLbi L^>f lij s 




hello( "visitor" , "visitor2" ) ; 
sub hello{ 

my ($name1, $name2) = @_; 
print "welcome to Ali's Website 



11 . 

r 



print "welcome $name1 



11 • 

1 



print "welcome $name2";} 



^yi isjjj ftv-fcJO ^ 4s^-ja)I ia^iil! ^yj xJ&aJ ^5" Ujj 3I Silo 




:Sj5CaJI £>2u oljjt ■b.cca.JI JLiaaJI li&s Return 2U15 pjjxiaJ $a 4ks bJx. lo JS 



sub sqr{ 

my $number = shift; 
return $number * $number;} 
my $squared = sqr(3); 



^ J^j>J j^a&a Jl 4a»>aJI 44ufiJ| IjjJLaif Jl^aJI li& ^ US$ ctSjLd Jaaj U5 US' *<Li»L^JI Jl 



Scoping ^juJI 



4^Ij^loiI ji^j *i 9 Lftj ^i>2A)! SLflk^aJb ^ b>. 1 ♦>! ^jJlsj jJI... Package 5 f ^15 






$total = 10; 

$number = 12; 

adding($number) ; 

sub adding{ 

$number = shift; 

$total = $total + $number; 

--$number; 

} 

print "$number, $total" ; 



S^jyJi^i\ iaJa gJaj U.ux 2btjcuJI j^Scl^ j^a§3^j liL j^l 




1 3 4j>^jJI 



^-o <2U^> 4-4>- ^>-a W 3 V b.q.A>- Ll3^ ^aa3*a11 YY g-^'^' 0 j^>J^aJ I 



4-j>^I sL^UaII j-£J$ >LJ _fc US number SLa^S ^s-So 3! aI I 
j-Jiza 4jsu§ j^LqjU La9 2l)IjJI Jj>b !U joS^j Number 2la-£ ^iO^ ^oa^aIJ 
i,^3 &1a <^Jx. jjli >^;a.1 I fuol ^^iu 4J J^-UII ±JcaA\ J\ ^1 Number 

.Lbljsil Global SL&LSco oIj^aJ! ^a Jo*j ^1 oLaJJ! ^ clk^l ^a 



^>^3 0 ! Uul JjIsaII J> ^Ls^J! Side effects ^ ^Jb 14 

0L2JJI jiSl ^ . JSL^aJI ^ j^£J j jyaCLO Stole CjIj-cSOa g-°L3jJI O \jjS£a j-o Ja^o ^ 



my plj^Laib^^iQ J5 ^ j^Jb ^$-23 joJ Sj-cJI dljji ^Jx J s^soJJ use strict 



joGI JasjJ <1&Iaa £jL> oIj^aII ^La^i j-ju j^jIsj ^JJij5 



my $total = 10; 

my $number = 12; 

adding($number ) ; 

sub adding{ 

my $number = shift; 

$total = $total + $number; 

--$number; 

} 

print "$number< $total"; 



Recursion djj^sll 



Recursive <Lo^ ^^aJI ^ .Uuo Ljjlc SLu&JI i^ojJ! ^ 5 .I^aj 2JIjJI 




jx. (Qjlj ^Ul 5 |o5>) Factorial uL> iajj-^ ^ Sj&JI ?^>^J JLio .Method 



Lo Til <I1£a£ jLksj^l cJL5 ^^Jl 2l)IjJI o>^> '<Lq glsto *<L^ aj>I$JI i-ps^s 



l^-Jj^Jb 2J|jJI J»b ClJA^xl 



5*f (5-1 ) 
4*(4-1 ) 
3*(3-1 ) 
2*(2-1 ) 

f(D = 1 




I3 4j^ojJI ^iUj 



$fv = fact(5); 

print "factorial 5 is $fv 



11 . 



sub fact { 

my $var = shift; 

if ($var > 1){ 

$fv = $var * fact($var -1);} 
else {$fv = 1 ; } 

} 



.2ip$aJI pl^j^db dJi 5 Binary ^ I^Jjuj 



sub binary { 
my ($n) = @>_; 
return $n if $n == 0 
my $k = int ($n/2); 
my $b = $n % 2; 
my $E = binary($k); 
return $E.$b; 



} 



print binary(100); 



$n == 1; 



4s** jj\ ola) JJj 



Higher-order functions Jl^jJI 

iXftj 2l1IjJI L ya~aJs .Factories 5 f Callbacks j^sul I Us>sj Ujjs ^^k-^l v- 

I^j-ol Jj>I ^gtoJ LoAJLC fu^l 



Anonymous subroutines 4j£$>*JI SLc^iM ^lk$JI 

f^jio <(Identifier lijAo) ^1 14I ^^J SjUu 3! il^^o Jl^ ^3 



my $number_plus_two = sub {return shift()+2}; 
print $number_plus_two->(3) ; 



.Arguments J^i Jx. J! s j Jl ^j^u 0 ! Iaasu ^h^j .V 



4>^ojJI Ola) JJ.3 




I3 4j^0jJI (TilflJ 



Closures olHlaJI 



: J bull IIa ^jaJ 



sub demo{ 

my $name = shift; 

return sub{print "Hello $name"} 

} 

my $ref = demo( "Ali" ) ; 
&$ref(); 



ji5f JLio .Closure SjaUoII ala 2Lb-p*All SUIjJI ^ j^>^o Jj la La ^ij^o 



.1 ♦♦♦♦ 



sub demo{ 

my ($title) = @_; 

return sub{my ($name) = @_; 

print "$title $name"} 

} 

my $ref = demo("Mr . ") ; 
my $ref_2 = demo( "Ms . " ) ; 



$ref->("Ali"); #Mr. Ali 
$ref_2->("Yosra"); #Ms. Yosra 




Currying, Lazy eval, Streams, : J_ju 1 ^ J^br, J^Al* f^KJI 

... Continuation 



Declarative (V^D Mij^' ifjjM 

^JJ-^S LaIjj^aj joX>oJI *4iijjl5 v_6.^ g JS-^ ^Uaj^JI ^giaXaJ <-Q.^> § 

♦,1 &$±x> SJsL^uaJ I Jj> 4Jb>iaj g^bjJI L£ Imperative i^>JI 



IDE 



integrated Development Environment jLgq^l T>^ LuLc. jju 2uaKII <>i& 

?Jsu«gJb lift ^jisy lilo ^3 <4JLoI$Oa1I jJ^oJI 4Ld ^1 



j 5 juj 5 ajS^U JJlo o!j>^aj cticS^ jlCa^b 0 15 0 5!l Jl 5 ^bWI ^ 



3 Jo-^-q J I SjXflxJI ^Ij^LojIj Ko9 2ULol5 g-oljj j^>3 ^1 bJ ^aj c^p- /i^ojJJ ^^SuJ ^5 vi 3 



Ua^l ^c&ijn JJLo ^>>! oI$jI j-o J-ob^JJ 4j>L> Abjb j^So Ujjlc i-obs Sj-dS jL^f 




Lfljlj ^ ^3 0 $5o 0 I ^>o jI^I 4jh5 ^Ijj 0 I Aii^j ^ ilia Jljj ^! laJo 



4 ♦ 







\x> \hu^j 0 15 ^Uls Padre ^Ij>J ^Lj^lujI Jl^l js^ ^5 <SjS^xJ! ^ SjJjLo 



0 b cuj5 Emacs Jj Netbeans $ Eclipse Jio IDE ^ c^>J 




^3jJL<aJI ^ Jac J^> Eclipse plA^o^U 41ac ^ic- ^.-o 



♦ * 




jj^J^J! oLl^j j-o^l Uajlt. Java i^a>JI iidj ^J^j U-i 'ioL>- Eclipse ^\^j> 



Uajlc jiCJ^ ^>uti JSLio sr' 5 '^' J^^" fi:^ 0 -^ j^ljJI '<L^^ijJI oL^l^JI cLl3l 

. 0 L^S!l ^Ji! S J5> b d ^j!^! jj^i JUJI iJjJI ol 5J S!! >l^Jli HTML 



** 






Lo-jL> l>a/iLQ p Jj>JL^j a£q, kjususi I 4slJ La^jOa oj \yujSLQ g^ljjJ! ^Jib ^>*J jtu .Eclipse 




.^JL.^^U^JI JasJI olo^lo, 'ico^jJI 0I42-I0JI p-aij ol^jl j-^^j Jia 4jL3l5lal k^um 




Compiled and Interpreted S>uii $ 



iiiJj 4^5o La) ^jA-^oa)! J^iCJI Jo^>o pj>j^_aJ! .oUJJ! ^yxsu JL>JI ^ LaS A^!^ jl ^ 



§Jb ia^jdl ^a ^^Li^l ^A^JI a^lc .L-^bJI Ifta^aj 4iJ ^Jl ULc. 4sJ .3.9$ ^1 (*i>^a>JI 



0L2J ajvo^o. |Oj>j^-a5 >o/Aa IgJA) oLal ^>^' ^li^ llA .SjJjLa ^1 0,5^1 A^flJuL) &J£AJ o^b 
joJLj joJ ByteCOde Lkaj^ 'iiJ ^Jl ^jj^^ll ^ olaJI *<Laj>>) IjIaJI ^Jj lib- JiLa 



Virtual 2L . lo^J 1 iJ^I <0'li LibJJ 2LaJ b ^ ^Ul >.^J I J^>- ^ jo^J! 11^ 



^a Jal*oJI SjjDI I^ja) liL> 4sL *<i^>L>J! >^ 3ajac i^Lpo cdT jjvsj la^ .Machine 



a^aUjjJI OUJJI jclcj ^9A4^xJ ^1 3aja>J! 4J-o^JI 4J5!I ^5 Parrot S^a '^Aa^a olid 




1 3 4j>^jJI ^iUj 



/ioh^Al! 4a&&\$ J-^d 1 ^ ^ JrLdJ ^j^J! ^ jiSl Portability iJto! 



Syntax and Semantics 3-J^$ S-m-^jj 



j^cl^J! ^ (*<L^ojJ! iidj iLoJ! v^Ij^j JJssj 5! *<Lob5) 'iJ^o! cLb^I Syntax 
fr Lb>! 5 ! 1= >SJ! ohS 0 LCo Lb>JIS Subfll ^J>i fr Lk>! 5 ! «5al] 4^biAJI oUsai 



SjLsj s_a> 4_aJ ^ *<L-ouJb Syntax jli lil .^JJi ^1 la 3 ligoqa oj isLbl ^ j 



joOfe la olslll ^ai i^ojJI OlsJ j^JJ^5 Lj L&o, 4sJJI ^9 j!$5^I hbS JX.I$9 ^jj>I 



^.9 <UI ^ic < La j s-a jJ I a, ^lo^lo, 4,9 ^iL-PA-l 1 ^lo^l L^9 j!5o 0L2J ^lUa^ 



4jbo 05 jLaj Uj!^! ^^xsu 0 35jiij ^ J^JI Jj^J Jia 0L2J ilb JjISaJI ^JbJ! J* 



<5j|^5l ^ S^Lcui^ jL^o^-^J 41 joJ @ , $ Jio j^j Jl^JI 



jbjLs^s aj^j ^ l&J* ^1^1 Sjl5 -jx. j^l5 .dLa Lisp .£j>*s 





A3 



c^oJ ^49 ^alj^J! ^fl 0 ! fr lk>-S!l ^ 2Lc$JI ala J J^s Syntax Jl 
cLU>-^l jLk^>l Jlc SjjJJI LgjjJ a>^5 tj^^i J-^° IDE's x>$3 pL$l 4jl ^^Li^ 
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package User; 
use DateTime; 
use Moose; 
extends ' Person ' ; 
has 'password' => ( 
is => ' rw' , 



=> 'Str ' , 



); 

has 'last_login' => ( 

is => ' rw' , 

isa => ' DateTime ' / 

handles => { ' date_of_last_login ' => 'date' }, 

); 

sub login { 

my $self = shift; 

my $pw = shift; 

return 0 if $pw ne $self ->password; 
$self ->last_login(DateTime->now( ) ) ; 
return 1 ; 

} 
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my $number = 1 + int rand 10; 

do { print "Guess a number between 1 and 10: " } until <> 
$number ; 

print "You got it! 

M • 
I 



Java .r 



isJJ! 6iJb oj4^> ^> <Oak ial) jIjjuiI jx. SjLc>q^I iiLJi^ ^ ^jb Java lib- &) 



SJ^uj isJ Sun Microsystems >^u^j5Loo ^ 45>Jj Jj| ^ oLl^xcJI 2jIjj ^ 



.i-JLkaJI sja^JI *jJO ^1 jlflbJI 8j4>f Js dalJI 0 £ ^Lfll Jl^JI 

*<L^>L> IftL^LafaQ ^ 2L>$a)I a la Oak ^j^to Ja>^ ^1 ^jJb cu3 j^3^l oIjj SpAll 



WebRunner jjj Is^AJli ^1 Jl p^oU^I J^^^ai gi^ao J^f j^&k asj 

j^pJ! Ijjb ^ .^1 i^ojj 2L»J ^jj y^sao ^ SjLt (Hot Java Web Browser) 



I^IS 111 /'Oak Technology" ^jj as>2J JJ ^ J^i "Owk" ^1 0 I 



lib- v ,^:;5a) ^jj^JaJI^ ol5>HI ^-o j^jasJI 35jLAaj L&>^l>oSll j$Jaj$ .lib- J^l tooil 




Clojure 
PHP 
Python 

D 

Groovy 
Scala 
C# 



lit*. 4fl J* Oj5f OlaJ 



C++ 
Ada 83 

Smalltalk 
Modula 3 
Oberon 
Objective C 




♦ ♦ 




L9bo L>J I jJb L-o 1 p^ib vi 

4s) J I JVM j$S c^b ^bib 

^ ^ J^su Lil> ^1*9 ,4J5!I 



. JVM 4*9 JJ> g plihj 
.'<LiSI5 i^ojj 4aJ 

♦ * ♦ ^/ ft 



.C++ iail 4jLiLo 2bh£JI o^Lj! 

Garbage *<LaL£ ^oL> ^^Jx. 

.Collection 





bi 



♦ * 




4 ♦ 



J! 



4#>-l$JI g-°l>J AWT .0 

.ob*aoaaJl 5-0 1 >J Applet .1 



http://www.oraclexom/technetwork/java/index.html 



•♦♦HI 4 ♦♦ 




GNU General Public License 



public class Guessing { 

public static void main(String[] args) throws 
Number Format Except ion { 

int n = (int)(Math.random() * 10 + 1); 

System. out . print( "Guess the number between 1 and 10: "); 

while (Integer . pa rseInt(Sys tern. console ( ) . read Line ( ) ) ! n){ 

System. out .print("Wrong! Guess again: "); 

} 

System. out . println( "Well guessed! ); 

} 
} 
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#include <stdio.h> 




#include <time.h> 




int main(void) 




{ 




int n; 

w 




int g; 




char c; 




srand(time(NULL)); 




n = 1 + (rand() % 10); 




Duts("I'm thinking of a number between 1 


and 10 "V 


ni i1" q f " Tr\/ 1~n cti ipc: c "i +" • 11 ^ • 




while (1) { 




if (scanf ("%d" , &g)! 1) { 




/* ignore one char, in case user gave a 


non-number */ 


scanf ( %c i &c); 




continue; 




} 




if (g == n) { 




puts( "Correct ! ) ; 




return 0; 




} 




puts( "That's not my number. Try another 


guess: "); 


} 




} 
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(DEFUN HELLO-WORLD () 
(PRINT (LIST 'HELLO 'WORLD)) 

) 
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import random 
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target, guess = random. randint(1 f 10)/ 0 
while target! guess: 

guess = int(input( ' Guess my number between 1 and 10 until you 
get it right: ')) 

printCThats right! ) 
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program guess_the_number 
implicit none 

integer : : guess 
real : : r 

integer:: i, clock, count, n 

integer ,dimension( : ) ,allocatable: : seed 

real, parameter : : rmax = 10 

! nitialize random number generator: 

call random_seed(size=n) 

allocate(seed(n) ) 

call system_clock(count) 

seed = count 

call random_seed(put=seed) 
deallocate(seed) 

! ick a random number between 1 and rmax: 

call random_number(r) ! between 0.0 and 1.0 

i = int((rmax-1 .0)*r + 1.0)! between 1 and rmax 

! et user guess: 

write(*, ' (A) ' ) 'I''m thinking of a number between 1 and 10.' 

do! oop until guess is correct 

write(* f ' (A) ' ,advance='NO' ) 'Enter Guess: ' 

read(*, ' (15) ' ) guess 

if (guess==i) exit 

write(*,*) 'Sorry, try again.' 

end do 

write(*,*) 'You''ve guessed my number! 
end program guess_the_number 
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main : 
( 

INT n; 
INT g; 

n:= ENTIER ( random*1 0+1 ) ; 

PROC puts = (STRING string)V0ID: putf (standout , ($gl$ . string) ) ; 
putsC'I'm thinking of a number between 1 and 10."); 
puts("Try to guess it! "); 
DO 

readf(($g$, g)); 
IF g = n THEN break 
ELSE 



tL^t 

puts("That ' s not my number. "); 
puts("Try another guess! ) 
FI 
0D; 

break: 

puts("You have won! ") 
) 
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IDENTIFICATION DIVISION. 

PROGRAM- ID. Guess-The-Number. 

DATA DIVISION. 
WORKING-STORAGE SECTION. 

01 Random-Num PIC 99. 
01 Guess PIC 99. 

PROCEDURE DIVISION. 

COMPUTE Random-Num = 1 + (FUNCTION RANDOM * 10) 
DISPLAY "Guess a number between 1 and 10:" 

PERFORM FOREVER 

ACCEPT Guess 

IF Guess = Random-Num 
DISPLAY "Well guessed! 

EXIT PERFORM 
ELSE 

DISPLAY "That isn't it. Try again." 

END-IF 

END-PERFORM 

GOBACK 
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<?php 



session_start( ) ; 



if (isset($_SESSION[ 'number' ] )) 
{ 

$number = $_SESSION[ ' number '] ; 
} 




{ 

$_SESSION[ 'number' ] = rand(1,10); 
} 



if($_POST["guess"]){ 

$guess = htmlspecialchars($_POST[ 'guess ']) ; 



echo $guess. "<br />"; 
if ($guess! $number) 

{ 

echo "Your guess is not correct"; 
} 

elseif ($guess == $number) 
{ 

echo "You got the correct number! ; 
} 



} 

?> 



<! OCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1 -transitional . dtd"> 

<html xmlns="http : //www.w3 .org/1 999/xhtml"> 

<head> 

<meta http-equiv=" Content -Type" content=" text /html; char set =UTF- 
8" /> 

<title>Guess A Number</title> 

</head> 

<body> 

<form action="<?=$_SERVER[ 'PHP_SELF' ] ?>" method="post" 
name= "guess -a -number "> 

<label for="guess">Guess number : </label><br/ > 
<input type="text" name="guess" /> 

<input name="number" type="hidden" value="<?= $number ?>" /> 

<input name="submit" type="submit" /> 

</form> 

</body> 

</html> 



Eiffel . s S 



2^ol_>JI <_^-u&" <uS>£ _>j ^Jaj ^5 Bertrand Meyer _>*a jjbj'_>j cLSol ^ JajI 'is] 



*i9 Lb I <iib-^i ^jjLLo J^SCJI ^ Sjt&LudSlI i-Jjli^ Scli&U!^ Sj^^JIj JqjI 

ps-JI '6j$&:;ia\\ *<L>^ojJI olid ^Jl LiL>^ ^±>9 Saj-^>- '^^-^ »^*-oj5 1^31 ^Jl 



Java 

c# 

Ruby 

D 

Lisaac 
Sather 



Ada 

Simula 

Z 



SLx-o >JI Ola) JJ.3 



:3iUI j^JL^ 





4aJ 




.pjLo sCoIj 'ijbSCJI o$LJ 



Design by contract j^HsJb i^ojJI 



http ://www. eif f el .com/ 



class 

HELLO_WORLD 

create 

make 

feature 

make 

do 

print ("Hello, world! N") 

end 

end 
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Hello world ^ $5 



Modula-2 . ^ Y 

(JlsLdb isJ Niklaus Wirth ^ 5 ^5LJ <olusuuJl ia^ojlo ^ 

jJ^oj |oJ ^5^5-0 .^^^^-o I^a^j 1 3j^jjj> 'i&l cLiJI ^Jl O^l ^yjlj^Jb OjL>^Ij 

f 8 

.Lilith jcLojlj ^kjsu^ jl&>^ *i^L>- 2Lft! J\ ^jLj^I S-ua> 

2-ftlJI cJL5 c'^pj L&jf l^d^Laj ^^Ic 2-aLII .Y-^j^o jo^jLj L^j^J 

iiJ <LqJ^5 l&^aj^o Laj^icl .Lo>^! ^^aJj ^^uL L9L> ^^^5 jo Lj^js' ^ Sj-ocUaJI 

.JlSCujb '<bva>JI 



Ada 
Oberon 
Lua 
Fortran 90 
Modula-3 
Modula-GM 



Pascal 
ALGOL 
Mesa 
Simula-67 




(i^oAaJ!) ZuLoxguaJl i>^ojJ 



♦ * 






.pjL^ tColj 2bb$3! o^Lj 





wi 



■ wJI 




♦ * 



A 0. 



♦ * 



5 




MODULE hello; 

FROM InOut IMPORT writestring, writeln; 
begin 

WriteString("Hello f world! ); 
Writeln ; 




♦ ♦ 



.Hello world 



end hello. 



Ruby . S r 



Yukihiro ^j^^lJU ^j^S^ Iojjlc mr 4jl^ ^ *<b^>J! iaJ Sj53 oLu 



■6$2}\ J^o ^siii a^a^ 2LaJ J5 kj 0 ! (Matz J>yL> 0 ! 5 !) Matsumoto 



iaJ j^j>^J as^Luj I L^jixo J!j^5 fudl Lbjl ^lia ^15 cu-p- iaLJI ^9 caJ! 



Y 



• • • 



oL£JI Hjb 0 I ^1 La SjLii^l j^j>j Ruby Programming i^-o^" 



Groovy 
Falcon 
Nu 
Loke 



Perl 
SmallTalk 

Lisp 
Python 
Eiffel 




03 



.Ruby on Rails pljj^L^lj ^o^JI 



J 




f 55 



Garbage 



♦ * 



Ia9 



.Collection 



Jruby ^Ijj^ojIj teL> 



• 












https://www.ruby-lang.org/en/ 








Ruby License 5 f BSD License 












n = rand(10) + 1 




puts 'Guess the number: ' 




puts 'Wrong! Guess again: ' until get 


:s.to_i == n 


puts 'Well guessed ! ' 





4s** jj\ ola) JJj 



dj^ojJ! 0L2J *<L?tiaJ 



Pascal . \ i 

Niklaus Wirth ^^XJ" J_j| ^ L^Uf Pascal i^jJI 2LaJ ojs_£> 

J \SLui U jj jjJ^^SCJ j5^u9jJ1 .IFIP ^ajJ 1 *<L>JIsaJ '<L^JlsJI 4_J!jAaJ! 3^xc 




:JXojIj 4aJ ^ Jsi^j 



*<Lc4Jti Lj I 4j>^jJI ££^Lo p^lsj* j^J^J 4aI .V 



Blaise Pascal " JX^l> jjj" oL^bjJ! fJLaj Ll^lJ c^a^ ^Jls JX^l> 2LaJ 

j^5>J! j^So cuJa> ^gjsS^ll ^ ^js-^ ALGOL60 i^-ojJI 4a!J SjJ&Lo 
.ALGOL68 s Algol w ^JJ 2L^o jJ\ >^baJ! ^ JlC^b Uj! .I^jj^ a^I 



Ji* 2iJJI ^ Sj^^JI oULJI £j$jf ^ Data types JLc U^!^! • 



.^Jl... ^i^j^J!^ SuSJaxoJl^ 4j>^>l^xII 

.ftJjxXatflJI lfcJJJ*J dJJA>- OljL) plojf cLaJl dUi , Jl i&Lol 

Sets j^j^SojJI^ jojl^flJI :J1a 0I3LJI ^Jl^ ^ Sxo- ic^A>^ Ia§I^>I 



.Procedures and Functions Jb J>jsu U 5 i a^all j^l>JI ^Ij^ 



Java 
Oberon 
Oberon-2 

Ada 
Oxygene 
Modula-2 
Component Pascal 

Object Pascal 



ALGOL • 
COBOL • 




4 ♦ 




♦ * 




C++ 



p^Lao ^jxtjjsJ oL^KJ's oLaal^JI 




.\y j^sJI Skype ^U^f ^ 



JlSLdb ^"'Q** Jl£aib 4ab 

.^^j 4ab o^^La 

.Pointers J I 

* s 



Program GuessTheNumber(input , output); 




var 




number, guess: integer; 




begin 




randomize; 




number:= random(10) + 1; 




writeln ('I''m thinking of a number between 1 and 10, 
should guess . ' ) ; 


which you 


write ('Enter your guess: '); 




reaain (^guessj, 




while guess <> number do 




begin 




writeln ('Sorry, but your guess is wrong. Please try 


again. ' ); 


write ('Enter your new guess: '); 




readln (guess); 




end; 




writeln ('You made an excellent guess. Thank you and 
day. '); 


have a nice 


end. 





4ia)LaA)l ^.jL&s) Pl/1 Jl pJ (S-U-soJI i^^JI NPL 4idJ JLoSlI ^1 

.lj^L>Jl J (^>$)\ ^-Ljj^I j^>^) National Physical Laboratory 1^1 ^ 



.j&pS ^ UjjJ Ij^L>oI £jL> {Q^^JI $J ID 



^kJ! JL*JI 0 lj3j^i ^Ud 033 oU^ ^l<p J Pl/1 ^ 0 15 ^JJU .3* 




I 



4j^o jJ! 0L2J 



SP/k • COBOL • 

REXX • Fortran • 

ALGOL • 





3 15 Pi/i ajj 




3, 



4 ♦ 



.'ijijJ^JI (Q^LoaIIq 8a_jjj>JI 0L2JJI 



pi/i 



'dSjjj^ ii^j^l Ford ^j^i 45>Jd 



> ♦* ♦ 1 



♦ ♦ 



jO^&LjLO^ td__Jj£sJI jOX- 



♦ * 




♦ * 





.Marathon <Li^jJ! j^'jU 



.Hello World 

Hello2: proc options(main) ; 
put list ('Hello, world! ); 
end Hello2; 



Haskell . ^ n 



UJ^? $J 1 i^ojJI oUL ^UoA^I jlj <WAo 2uloj ^ Miranda *i^o>JI iaJ jU-^l a*j 



4S>2J *<LJl>^ jJo joJ L^Js LjIj^LujI Miranda IaJj^ cJl5 oUJJ! 

jj^-<-A.Cjl i^Aia^ *<Lfl*k $J 1 olaLII 4^.11 ll^]^ .Research Software 

Sj S >o 0 $S>USudl 4^9 £Uz*-l Aii£ .Portland Oregon 0 15 ^Uls (FPCA 87) 



J^ftloj ^^4>JI Co-^J WW 4JLaJ ^-9^ JSl^U cOJJSJ ^-0 cL^Lj^l jcu WV 2ULuJ £-03 

+4 

/i^j^d! ^L^oJI 49 Lb I £j> ^ <M JCasl^J J5IjJI$ oliU^I cU3b SlldJJI j ss> 9 



ji5^l GHC "s$Laj^V jojvj^J! j^aj^ Iaj>- £j>^ J£Aj j^Jaaj JSL^Ia 2LsJ 



.Haskell Curry ^j^S 



dj^ojJ! 0L2J 4j>^J 



Omega 
Perl6 
Python 
Visual Basic 9 

Cayenne 
Java Generics 

F# 
C# 

Scala 



:JSLalA 4d OjJt old 



Lisp 
Miranda 
APL 
Ponder 
Standard ML 
Lazy ML 






J—ASJ CU-oL5 ^J^I 8j$4_UfcA 






Li^jl .PllgS fLollj i3§jSLQ ^J*l£ £j-OJ 

JSL^la ojLs>I Linspire 3_sj}$j 
Xmonad .pLkJI al^si^^ 

^5 Xll l9l$J plihJ _>JA^ 




oULJI ax.I$§$ jj$Jsd 






Lazy J3 p ^o-ll 



4 * 



. Evaluation 



0 j_>^ Lfe^J 5 J-cli j^aj gjiatf 



.Hackage oL£Jb 




.3JUJI SclflSCIb 



http ://www.haskell. org/ 




import Control. Monad 
import System. Random 

-- Repeat the action until the predicate is true. 

until_ act pred = act »= pred >>= flip unless (until_ act pred) 

answerls ans guess 

| ans == guess = putStrLn "You got it! >> return True 

| otherwise = putStrLn "Nope. Guess again." » return False 

ask = liftM read getLine 

main = do 

ans <- randomRIO (1,10):: 10 Int 

putStrLn "Try to guess my secret number between 1 and 10." 
ask 'until x answerls ans 



fiaJJI 



4s** jj\ ola) JJj 



Visual Basic . \ v 



^or.-w/JI '4jujh c^ojJs 1 J's- : ^-^ 4-ftl j!j^>^! Jsys* WW 4JL^ ,^-9 



Forms ^iLdl cLiol ^-olijj J^j> ^-o oj^> ^-x^-^aII oL&>ls ^^:;J o^i^l^ 

.Tripod jcuoib ^jsaII <i^5>ii 9 Alan Cooper j^S ahj! ^1)1 



o^^y Tripod jj^J (^ISj-Jj s) jj^s cus^^^ ^ ±31*3 cu_^> 

2J^c ^1 bsb xs>-$i *i) Ruby ^ojJI 0 a,„a11 c^>o ^L!i 9 «V.* jsalj$J i^ojJJ JjI£ p 



jujjulu} 



( \3^h\ i^jj iiJ ^.Jx. ^s^o ^5o fJ Tripod >>5!l ^JbJI ^Jx. .(^j 'i^j-J' 
JI^j^Jlj *-i>2J La ^ jm : Basic ij^ojJI iaJ ^-a 2-°-^ c/W ^s-^sj^Lco dJU 



ojj^> mo .Microsoft Jet Database Engine ^ \.\ jL-^l d.^ I jLl^I 



Ha LojI .32bit 9 16bit g^l ^ ^ ^ J s ^l 0 15 jIj^I \±j* VB 4 



.32bit b>^> VB j juo5 ^1 cu5^5j5lco Ojji mv^jlj^i ^ L> ^L>JI jl^^l ^ 



^-0 i-oJ^LoJI Sj^luJI f ^HA 4JLaJ £-3 .j^JJU^J ^JL^flJulJI ^y^JjJI J^iGI SjJjLo J-ol>JI 



.NET 2LojLQ j_o ^•i-lls <VB6 a_sj ^aJ! VB.NET dJi a-sj ^J'f aj 



Jjo^Jb p^flj ac.jJ! ^ VB ^ 4ibUJ! oIjIa^I jo *<LJii>l$j ^1 ^o. 

j*^o JLft 0 3l Jl <uf Jl SjLfi^l 

.VB ^UJ! jIa^Ij 



... .. 



... *i .. 



VisualBasic.NET 

REALBasic 
Gambas 
Basic4ppc 



QuickBASIC 




O^>-A-0 O 



.COM JJ s 






* * 



.lcO 






.Event Driven Jc 

.'iolA9 jab> I&ja) 

.Case-insensitive ^ioj^J! 




J 



^1, 







.OljlAO^I 3AS2J lo^j 4Ji9lo^)l J5llo 



.j^aII JO L-<i> Li> J^O 



t^=>- c'is^QjJ] 3.Jac Ju4-oJ $a ^^L^l BASIC i^ojJ! ial U5 ^Lcj JI^^s 



cLiJI fL^j ^XJ j^>UsJJ o^i^ v-^-v-cJI ^ljj>:;,gjb iaj>aJ! i^ojJI *<L-^>1^- L^I 



♦ * 



:4aU! 4^Jlo 



http://msdn.microsoft.com/en-us/vstudio/hh388573.aspx 



Private Sub Form_Load( ) 

1 execute a simple message box that will say "Hello, World! 
MsgBox "Hello, World! 

End Sub 



JavaScript . ^ A 

Netscape 35>i ^ Brenden Eich ^b! jajIjj 3i^!$j cojSLj lib- oj^> 
.cojSLun Lib- ^Jl i-jLfejJl ^-93 LiveScript ^1 6>^aj joJ £±1\$ <Mocha 0 .a ^ 

3 £j>aJI -£Jl^ua}\ 2.0B3 jIj^^I ^i ^Js^l a>aJJ cujjSLoj Lib- c^iL^g c^obl 




Lib- *<La) ^y-^s I -ft* /J JcujJI SJallaaJI ^1 "c«Jj5Lui Lib-" (Q^ujI 




Lib- j-o^l 3juiL> ^i .i^^uSLutfj ^ Sju&aia SLSj^-oJ 35j^>- 4JI ^JJi j^-^' liJ-^'S ^ 



.Sjg2$ ^^iJJI ^ 4$>lauaJ I oliuaJI ^3 Sun ^ 3S>2j ^y> lib- 4ab 4§^c Lft] ^yxJ Coj£oi 



,JI uLbl iur oo 3j**>JI 4-sdJ ^ 3jb£JI 3ibji> ^i Lb- 4jLia)l IAa j^tu 





I >ai J-jJ ji^ .lib- <iHjji? ^ic 3.x ao/:;J I jx.!$9 jusj cojSlaj lib- jl ^Ui 



jjIjJI Lft>Jb^>:;.rt ^^i lib- J^a-aJ 4JLu 3iLbb p^-oj vJ ^P- cj^S v^lai£j c>^ 4*&>& 



cxojj^l^I ji^ (t-Jb- J^jsb 0-^ 35>aJ 3bt-aio 3-o^c j^jzsj cujjSlui lib- .14253 



.Mozilla ^jj^s v- / - // C^ ^ Sj^ko o U&J joup*y c 



.Scheme 5 Self ^lsJ 



cLiub c^i^j^j^o cu^li v^S-" J^l^ <^ J-jAall 3-p-lj J-asl> 3Jd5 c^jjSL^ lib- ^L^o^ 

JScript c^bl ji 5 .j^-j^JI JjLua ^jLtoJ JScript l^w.M l& 3^>l» iiii!^ SjIj^oI 



^j! Ua j-oLaJ! a^>^j ^ij^j Ecma International lsL> (Oja&u v..,.^:;.* c^li 

.ECMAScript a^aJ! jUaII Jl 



^^ic <v^JI jil^-a i^jJ Iaj> 2LuaAI 1 olaJJ! Sa»I$ cujjSLj liL> co^ol ji^ 



*<L^!j^>! i^ojj Silol ^a Ljjxa cl^Ul cujSLj Lsb- ojLc Ajax Suiqj j^Jqj ^a ^ 



Lubol jj! La frameworks 5 oL£aJ! ^ Jlc. J^>oJ! 2L^aJI cJlSs .Sjj 



^c^oaII jll^l cujj^j l9l> ^Ia>o<a! SjuJo *i>^ojJI ^jLi-o j-uoJ 



Objective-J • Scheme 



Jscript 
Jscript.NET 



Self 
Perl 
Python 
Java 
C 




jixaj ilUfc ^5 ^J^JI jil^o ^ 



.Apple Dashboard Widgets 

.Microsoft Gadgets 
.Yahoo! Widgets 
.Google Desktop Gadgets 

cojSL^j lib- J^> 

(HPS ^s^s^s ^ 5 jSI l^S^ 

^sfs jiys 

J-Jlo 0L2J j^iLij oL_j Ij^-s-as 




♦ * 



* * 





*-o>JU PHP 



.Node.js J^>- ^ Server side 



.2L«jl5 ti^AJ^^ i^ilajJ! Sjjj&o 



<>o^Uj Prototypes J! ^ jj>a 



j-obuJI J-oUj SjJJS IgJ^J 



♦ * 




.HTML 



<script type="text/javascript"> 

<! to hide script contents from old browsers 

document .write( "Hello World! ) 

// end hiding contents from old browsers -> 

</script> 



C++ 



"C with classes" ^q>1a ^M- J^' Bjarne Stroustrup 0J Lj Lj 



L&j^l Simula ^oa^j i-^ojJI iAb oqj^jqjil^ ^15 .alja^jJ! ilL^jJ ij^AjJI 



Ia ^5^5 ii^Ax. *<Lo*ajj ^jjULo cLJ S-icLuaII^ i^LuaJI IjIJaJI >^X5 ,Jx. ^o^>J cu3l5 



U31 ^ BCPL Sid 0^315 ^1 44^1 J 



4a) jaiaj Oaj^ja^^j jji ^ili ^ic cbj .i^^AaJI ^jLiuaJI jjaixd '<L^jLlo Ifelarso 



2L^A^ Oli^ tSiflJLlo ( J^\yt^i\ l±\s£j* <4sj>oj 143^! 2lftl jbj>l .2 ^A/..uj Uja *<iiLbb 



J_£a OLalJI ^A AjJaJ! Jj ^yJj ^yJj ^-a3 ^lc OjJl ^A 1&JJ>3 OA-uA *j5o aJ £ .4Ao»Iq 

.S^feljsMI O^jja)! <oLa^53I :j513 OliLb^l Jaf ^a^ ^aS .CLU 5 1A Ja>jl 



<cx>!ajiJI iLftiA j513 isdJ *±j±s>. oteLbl <C++ Jl 4*111 2uwj mr 4jla ^ 



.j^IjaII £ jj>Io)I jJa^aJI oliLdsj 



4^aJ ^ The C++ Programming Language ob5 mo ii^ 



^a C++ 2.0 Ojx^ ^A^ ii-aj jU*- 0 J^l^' p- 1 ^ 4^ j^L^aII aaI ^>a 

.Sj>^a)I oL^KJ! ^jla^JI ^A2j oliLb^l ^ aj> 



<-^f ^jJI$ /The annotated C++ Reference Manual m 



♦ ♦ 





UJ! ^JloJI ^st oL^JI ^ J/0 Stream *<L^o ^ 43 Lb I 




cr 1 ^ «-*^>JI Ji^JI J^L^s? ^ jJidl 4*k&A i^aAj ^.ih^J ^Jj ^A) ^ Jljj ^ 



\JT^Z LT^t r 



.8^ ^ y 4iJ lUbJI 



jJj jjJb ^^oj *iab OjSfe OlaJ 



jjiJj jjAs ^^oj 4aJ ,^lc. OjJl OlaJ 



Perl 
Java 
Falcon 
php 
C# 
Ada95 
Lua 
D 



C 

ALGOL68 

Simula 
CLU 
ML 

Ada 83 




4aJ 



:2iUI j^JUx^ 



. J;iUjJI SjJ^Lo i^ojJ 4a] 




<^o,-coaj5 jci-^Lo tjLSop^l g-olijj c"LjLo" ^^IasJ! .iLaj^i! ^3^hi\ pjj*u&2} 1 g-abjj 

*<L&>loJI ^La^ JLSl^l p\Jbj <(j>j jjJtt) ^j>JI J-*ac c^oijjLoJI y^a* 



Civilization and the Jews * World of Warcraft Jio 4*1)1 



#include <iostream> 
#include <cstdlib> 
#include <ctime> 
int main() 

{ 

srand(time(0) ) ; 

int n = 1 + (rand() % 10); 

int g; 

std::cout « "I'm thinking of a number between 1 and 10.\nTry to 
guess it! "; 

while(true) 
{ 

std: :cin >> g; 

if (g == n) 
break; 




std::cout « "That's not my number. \nTry another guess! "; 
} 

std::cout « "You've guessed my number! ; 
return 0; 

} 



Scala .Y • 



^^J! ^ic 2Laill SjjJ Jl jaL ^AJ! S "Scalable Language" J jL^>l 'ijaJ^I 

.Jb^JI lia SjJIj lib- 



jL5 .EPFL J-oLslq ^Cajjj^l jjjLo j^j ^Jx. V»0 Sjloj ^^i 2LsJJI jOuia-^u Ijj 

'<Lijp b jJ 1 J_xiA^J! 'i^J^ i^J^^JI i^ojJI ja>j i^-ojj <iaJ Funnel Jx. Jac ^jjU 
aJ 9 .Generic Java B (Lib- f^o^) javac Jx. Jac 4jf ^Jl isLb^lj !1a <Petri Nets 

j^Jj .Net *<L^jlo ^ic jqj ^-03 Lib- *<L^jlo Jx V*»t SuIjj^ V^V SuI^j ^i 'iAUl ojj^s 



^^i J-asJI ^ic. Lbjl SjaoII L^jaJ^ lib- g-°l>J ^ i&iloXo^ lib- *<LoLo Jx Jas£ ^ll£^i 

.(o^l^JJ lib- i^io) J2ME 2L^io 



ByteCode aJ^j ^l5Lai ^j^o p^ib cu^> Lib- Jax 4iij>b 4jUj ^15^j Jac 4xj>^ 

^ v 3 > ij ^ ^ JVM J 1 2Ludb Lol .olx.h±u^l a* Lib- ^\$S\ Jl (Decompile) 

.Scala-library.jar Sj^I^ 2LiLbl *<L^La ^ ^ Ax>all ^jiJI ^15^ lib- j|$Sf 



Fantom 



Java 



Ceylon • Pizza 
Lasso • Scheme 
Kotlin • Smalltalk 

Objective Caml 
Standard ML 

Haskell 




*<Lj>^jj jLbl 5— ft 3 Lift jLbl 

Ruby on 43aj& *uULj J^L^q 
^llsL^j o^j^o Lift Laj 5 .Rails 

2L^bJI ^-oaJI Obaba lib- olaSLa 

JnUi' ur^ -Lift ^>Lh 

Jasj ^ISLai ^1 ur?S j Sj-«5 




-^5 WattzOn ^uoJI , q^JaS Ux3 



Fourthsquare 



.cut? 'ijhsGI o^Ldl 



6& 



giLojJl ZjssCa i->^ojj 2Lal • 

aSLfe^ ScalaTest u • 
.oljL^>^J dJi JUnit ^ 

SL^fe^ll O tail I jg>jUx> (aftu guao5 • 

Closures, Higher-order functions, 
Anonymouse functions, currying. 



BSD 



http ://www. scala-lang. org/ 




val n = (math . random * 10 + 1).toInt 
print( "Guess the number: " ) 

while(readlnt ! n) print("Wrong! Guess again: ") 
println( "Well guessed! ) 



Self .r 1 



J-olaa 2ulo» Randall Smith 5 David Ungar aja^l^j Self 2*1 oj^£> 



o>A) dUi$ *<Luil£)l 2L^o jJ I jj^'s $a ^L&l ^15 .Xerox Pare 
0 L^I JJi^3l 1&a*j .Lfe pL^L> ot5>2J! oLj S Smalltalk-80 4*J ^sjjj 

J 5 f ISJuJU WAV 4jl^j Iclk^J cu_^> iidJI ^^ic Jja^l ^Lo! 55 jj^Ll^ iiLob* ^1 



j!a-^! flk3 jcxol cu^> Y-.l 2ulos ^ >A3 IT jIa^I .mo 




^l-^I Ai 5 Prototypes ^iLuJI ^jJx. ajs^j '<Lolj15 i^jj *<LaJ v aL^ 



Y««l 4jlo3 oLJLill i^ojJI olid (ewuaj^ cUJ ^jj^j f lk£ ^Ji^ll 

. L-flLcaj 4ab LJ5 4j£^Co '<L^Jlo Klein £^9jJLo J^> ^y* i-qL.uj *4aJ jA^ail 



JIT 5!) Just-in-time compilation ^^La)! c^^JI ^ i^j^J! oU' j-a ajasJ! 



cxq jj>:;^.<j 1 3 Is^qj 1 3 L>l£j fejaJb oLjl£oJI blsts .'<L^^^a1! aI^5I uL^xj 

.Hotspot VM J^>- ^ l^L> 



NewtonScript 

Cel 
Agora 
Lisaac 
Lua 
Factor 
Javascript 
Rebol 
Squeak 



SmallTalk • 



:3iUI 



■UI J*- ^stoo 




Prototypes jriUJI aa^j iaJ 

.Traits ^ ji 



http ://www. selflanguage .org 



( | parent* 


= objl . width 


= 5. width: = <-. 


height = 9. 


height: = <- 


I) 


(| parent* 


= objl . width 


<- 5. height <- 9 | ) 



(2) 




Lo g --0 * 3 U^xiilJ i^jiLo j-o 4£1aj U Jx. ^>JL9 ^^-ojj £^jJLa ^1 JiLJ 5! 



C3 



UU 



l^i >ol^I «^i>2J j^^Jj :SlLia 1>-Ul . c^^iu £>>o) Sjj^I^ 8jj>s ^3 ohAs3 




8ji>^jaJI < ZjihrkjQ oIjI&aj i^oj^aJ! <3Ab.SuaJl «^ajLb$J! ic.$xo«-o ^J^J J^lScLo 4jI 



jlbl 



Jio pU^I ^ ^1 JaISoa £-*l3jJ ,<ij ^^ 0^ ^ >^ 3^- 0' O 5 ^ '-H 1 



.J ULa*. 



Events liilj^il J5 *-o Jolsdls i^^jJI S^I^JI ^jS^ Ja-2J il^aJ! cLuS&l 



.Sao f aill 



— s s * 



ijjlailLj 143^4^5 VujIjjJ! ^ p^ilLj 0 ^iiJj o^bJ! ^ j^lXJI c^>ls AiiJ 

<ujL£ ^JXJI 4l5L^ I J£JL> ^> ^ ^L^o ^ Lj> i^aj 



^i->J J^ij> ^-o J-^- 9 -. 1 '^-"^ 0^* LoAisiS ^j^>-l g^jLiui ^ jaJb Jaaj 




l^i^oljj 4^51 !>xiSGl l£>a> cJI 



I J 3 LxJLoJ .b-/^J 7c_-oIjjj *ijb£J S^Jo-'v S^Jo-S- j^-oJI ^^b^aJI ll& ^3 J^Lxlu^ 



j-oljjj Jjic ^-^s cj&b 3jil^aJI jL^I cIja^ j-o j^SSCJI ^IUa Slia 4J 

.SjJjLo *<LcLiJJ i>JL^ p^^bl^a J£-^ ^-1^- ^J^lli-a >A3 ^lc Jslo h by-fSy {jB^-Ji jW 3 *' 

^i>2j ^-^J's Sj-*^ ^rjL^o cuHilaj 1 ijo^j^ii 4j>1>- -uj ^-alijJI jl ^^.11 ^! a§ 

."Scratch Your Own Itch" ^lk^j 



o^jl U15 L^ob5 SjLcI fu 5>a»Lo oULJ! Sxcli Jsl^ cL^3l ^ ^j^i 



.dJi Aszj JjAsd! Jl i^bJ! 2u$LiaaJt oljLi^l$ 



f Ijj^J UxjI 5 l^JL^Jl OUUI JsIaj> -k-J^J j-ol^ pljj>^Lj ^ 



ilLuaJI Jiiaj 0 f ^ ^5 .l^klij iojji>s oLj^SOI s f g^t>>JI j-c^i .kuk>d UML 
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^51 Ij^SSGl eijsj' cjf 



.dijtjjS <£j£.\$ jji^ji jj^. .v 

^1 cbj ^ *<LajLu_>- iL>j-o *<L^jLa)I p 1 4^1 ] i^ljuaJ! ol^j^l AjJj>J 



S^UIIIDEJ! $A U 



.^^ojJ! ^jJ^JI oLikxo ^ j^Lj obb^l uak^jo. t ^J^:;JI ii^j^ ^9 



Jj-oq, PHP c^Lli jJi^l ^ Ti^Lo JSL^la Jj3i cu^a-j 5 'i^jJ JL> <2 jL^>^l 

:^jb]\ ilbJ! ^ JavaScript iaJ 5 Jg^N ilbJ! ^ J^f o!jL> ^sjs 



<i*JI .Wxwidgets <GTK J > i^jJIiiJ J \40sZj ^1 oljLr>J! ^jj! 0 I ^ 

si ^^1J 3! jsaij^ ^^oUjj o^^i Ja jb>.L» *<L^> J 



Jj J-5J3SJI ScljJ J^> ^-o .bJLQ 2Lal *<bhS ^Ja^I ^u! ^-lsj 4 SDL 2Ls5lo jil^i Ifijli 



CU9^JI Ujj ^jl^j IV^J ^3 Jl S 1 -^ fuAl^s oL£) 9 oljL^ Jl ^asoj 



^ dJis ,Jaii3 toLoi *<L>s>kJ! SdLoi^l ^ 2bl>^b ^^Li jj^>) AyKdl 



i^^jJI i&>l$JI bJ j-c^ Glade ^ dUi 5 wxGlade isLb^b Padre jL^-Lj 

!wx *<Li5Caj3 I4J o^slo j-olijj <o! *<LoL> Jj-u j!^5! jj^Jqj ^ bjx.Lccaj Padre $ 



TSwing ^ 5! QT S I GTK ^a^J i liU <2L^^jJI 44^! 



l^i^oljj !>xi5Cjl l£>a> cJl 



fa^> SjLsAd '^ySia cs$_jS SusSCai jl>fiJI iL>Jl J-J isy>^ i-^ljj J^5?j 2;L^>J La 
LS 5 j bjxo Lhjf GTK .jil^aJ! j!j^>^! *jJ$ jjLoaII iJiiJ jLsZ- ^ya Jj-u ^9 

I aAj* ^Jl2J 3 } 9 s^3 J\ g^lj^J! Jail 0 ! i_o-l 0^3 pU^f 



UaioJI OJJcaXas Ijo- dU^SCoJI^ l$s>&o jJ'^aJls WXPerl ,_Uii3^l jLpJI lil I^UJjaJI 




^ Jjli o^AJI jU^I jXaj "TSQLite ?J5I J5 I TJIsS^i TFlat File 6 iU Ola 

.2LmajJI olidAJ! Ji^s *<lo^>J! >lau)^l ^ j^SOJ 



oUKJI Sj^Is jjl^Lj c^5 $J L^ojj^lojLj c^S SQLite otiU J^JI ^ 

!Sj£>L>- oU15 S.ict9 pjjxo^Lti J^S jSCJ^ ^^ai^j 



Arabeyes aji^j lo Ji* oLaKJJ 3>L> ol3U 3^L§ pjj^J 0 1 jjjL> ^a] 0 il 



!J»$» jI^>Lj ID fSujjall 2&JI ji^j ^ 4j£J s <TBabelFish 



V M^rbJl J!saJ! s jI^I 2ubS SLJasu *jJI ^ tsub 




l^i^oljj ^51 !>xi5Cjl ^3jsij cof 




La 




1 







7-:--. 




aj^LJI ala {oJ5oi jJ 5 ^ibJ I f^jl) wxGlade pUr*^! caJ! Lu&u 1&a*j 



0 ! JJ> .^jJI a^l ^ hjji\ ^ jJi <Tk builder s Glade J±a 




5 f (XMLkla) J. 



b c.\^ui ^JJi^ i^y^l ^S^JI cr^J^' ^S^JI 



J^A? oVJI ->$£JI viud^ oUljJ^ ^5 Jy^\ 1^ J) ^y**jJ\ ^1 ^^wxi 



GTranslate_Alpha 



From ; 



AutoDetect 




Exit 



Swap <-> 



To : 



Arabic 



Arabic 

English 

French 

Dutch 

German 

Persian 



Japanese ^ 

Italian 

Slovak 

Serbian 

Thai 

Hindi 

Hebrew 





? 0 2t Janj tjla 

.Event J£J Action listener (Handler) 



>§j ^ O-^ 0 <lJlc^ 4jb£JI *<iiikio ^lc SjloJ! >£>^a i]jj>aJ cx^JUlo 



!j_^JI y^jsii cof 



.g^ljjJ! oU$i*A>&kl ^5 Credit jj jiLdJ c^joa aoLi .V 



.^Oaill ^Lol JLv^db p$aj Swap jjJ Co^la ^bLa T 



^p^xll I43I5C0 ^9 Lg^bjc^ iA^jdl Sa^qj p^iij Trans jjJ C^JLXo jloL*j .1 



<dU9 'ijbSU! p^jl^aU ^^aj *i cu-oo JoS,?..** (OJ>j^a)I j^-JI <U9 J4la^i ^U! cjj>JI 



.jI£a!I I 1a ^9 cLk^l JjLjj jl^fel l«Ms ^ ^ JL " <:u ^ C^B 



ComboBox jb^jL^i ^£J 5 olsJJ! jL^>l 2LJTj-J$j 2l^$ Sj-d5 o!jL> UjjJ .V 

^_9 JcLflS J-uj^J Laj's ^-aLjjJI l>^5 lil£o l->-L ^ ^£9 jISCaII <ul 34, J 

vJl^j ^5 *i*J r- ^j^Sl 2£Lbb ^^iLLui) Sji^l 0L2JJ! j^lhJ <uicjiU! 2JL>. 



.(W>*3 JljLo Jl 14^9 >^ Uj^sj ^J! oliJJ! 



.4a>j^JI jj ^ic jiLJI 4JL> ^9 ^1 1a£o ^^oJ ^jjoJI 



La9 ^1 Jlc^l Implement j^JaJ ^ i^'^'s ^ Joj^J! cjJ oj>L> 
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#! usr/bin/perl -w -- 

# generated by wxGlade 0.6.3 on Fri Oct 8 21:50:29 2010 

# To get wxPerl visit http://wxPerl.sourceforge.net/ 
use Wx 0.15 qw[ : allclasses] ; 

use strict; 
package MyFramel ; 
use Wx qw[ everything] ; 
use base qw(Wx: : Frame) ; 
use strict; 



sub new { 

my($self, $parent, $id, $title, $pos, $size, $style, $name) = 

@_; 

$parent = undef unless defined $parent; 

$id = -1 unless defined $id; 

$title = "" unless defined $title; 

$pos = wxDef aultPosition unless defined $pos; 

$size = wxDef aultSize unless defined $size; 

$name = "" unless defined $name; 

# begin wxGlade: MyFramel :: new 

$style = wxCAPTI0N|wxCL0SE_B0X|wxFRAME_N0_TASKBAR 
wxCLIP_CHILDREN 

unless defined $style; 

$self = $self ->SUPER: : new($parent , $id # $title, $pos, 
$style, $name); 

$self->{label_1} = Wx: : StaticText->new($self , -1 , "From: " 
wxDef aultPosition , wxDef aultSize , ) ; 




ii ii 



$self ->{origin} = Wx: : ComboBox->new($self , -1, 
wxDef aultPosition, wxDef aultSize, ["AutoDetect" , "Arabic", 
"English", "French", "Dutch", "German", "Persian", "Turkish", 
"Japanese", "Italian", "Slovak", "Serbian", "Thai", "Hindi", 
"Hebrew", "Spanish", "Greek", "Russian", "Swedish", "Croation", 
"Polish", "Portuguese", "Filipino", "Irish", "Malay", 
"Belarusian", "Czech", "Norwegian", "Swahili", "Catalan", 
"Bulgarian", "Korean", "Indonesian", "Chinese", "Vietnamese", 
"Yiddish", "Afrikaans"], wxCB_DR0PD0WN wxCB_SIMPLE 



\A^jq\jj t_*u5l !j^i5CJI 1-9J51J Cof 



wxCB_DROPDOWN |wxCB_READONLY|wxCB_SORT) ; 

$self ->{Swap} = Wx: : Button->new($self , -1, "Swap <->"); 

$self->{label_2} = Wx: : StaticText->new($self , -1, "To:", 
wxDef aultPosition , wxDef aultSize , ) ; 

$self ->{destination} = Wx: :ComboBox->new($self , -1, "", 
wxDef aultPosition, wxDef aultSize, ["Arabic", "English", 
"French", "Dutch", "German", "Persian", "Turkish", "Japanese", 
"Italian", "Slovak", "Serbian", "Thai", "Hindi", "Hebrew", 
"Spanish", "Greek", "Russian", "Swedish", "Croation", "Polish", 
"Portuguese", "Filipino", "Irish", "Malay", "Belarusian" , 
"Czech", "Norwegian", "Swahili", "Catalan", "Bulgarian", 
"Korean", "Indonesian", "Chinese", "Vietnamese", "Yiddish", 
"Afrikaans", "Ukrainian"], wxCB_DROPDOWN | wxCB_SIMPLE 
wxCB_DROPDOWN | wxCB_READONLY | wxCB_SORT ) ; 

$self ->{Trans} = Wx: :Button->new($self , -1, "Trans! ); 



ii ii 



$self ->{origin_text} = Wx: :TextCtrl->new($self , -1, 
wxDef aultPosition, wxDef aultSize, wxTE_MULTILINE | wxHSCROLL) ; 



ii ii 



$self ->{translated_text} = Wx: :TextCtrl->new($self , -1, 
wxDef aultPosition, wxDef aultSize, wxTE_MULTILINE | wxTE_READONLY) ; 

$self->{Credits} = Wx: :Button->new($self , -1, "Credits"); 

$self->{Exit} = Wx: : Button->new($self , -1, "Exit"); 

$self -> set_properties( ) ; 

$self -> do_layout( ) ; 

Wx: :Event: : EVT_COMBOBOX($self , $self->{origin}->GetId, 
\&OnSelection) ; 

Wx: : Event : :EVT_BUTTON($self, $self ->{Swap}->GetId , \&OnSwap); 

Wx: : Event: : EVT_COMBOBOX($self , $self ->{destination}->GetId , 
\&OnSelection) ; 

Wx: : Event: : EVT_BUTTON($self , $self ->{Trans}->GetId , \&OnTrans); 

Wx: :Event: : EVT_BUTTON($self , $self ->{Credits}->GetId, 
\&OnCredit); 

Wx: : Event : :EVT_BUTTON($self, $self ->{Exit}->GetId , \&OnExit); 
# end wxGlade 
return $self; 

} 

sub set_properties { 



my $self = shift; 

# begin wxGlade: MyFramel : : set_properties 

$self ->SetTitle( "GTranslate" ) ; 

$self ->{origin}->SetSelection(0) ; 
$self ->{destination}->SetSelection(0) ; 

$self ->{origin_text}->SetMinSize(Wx: : Size- >new( 428, 77)) ; 

# end wxGlade 

} 



sub do_layout { 

my $self = shift; 

# begin wxGlade: MyFramel:: do_layout 

$self ->{sizer_2} = Wx: : BoxSizer->new(wxVERTICAL) ; 

$self ->{sizer_3} = Wx: :BoxSizer->new(wxVERTICAL) ; 

$self->{sizer_4} = Wx: :BoxSizer->new(wxHORIZONTAL) ; 

$self->{sizer_5} = Wx: :BoxSizer->new(wxHORIZONTAL) ; 

$self->{sizer_5}->Add($self->{label_1}, 0, 
wxALIGN_CENTER_HORIZONTAL|wxALIGN_CENTER_VERTICAL, 0); 

$self ->{sizer_5}->Add($self ->{origin} , 0, 
wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self ->{sizer_5}->Add($self ->{Swap} , 0, 
wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self->{sizer_5}->Add($self->{label_2}, 0, 
wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self ->{sizer_5}->Add($self ->{destination} , 0, 

wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self ->{sizer_5}->Add($self ->{Trans} , 0, 
wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self->{sizer_3}->Add($self->{sizer_5}, 1, wxEXPAND, 0); 

$self->{sizer_3}->Add($self->{origin_text}, 0, wxEXPAND 
wxALIGN_CENTER_HORIZONTAL | wxALIGN_CENTER_VERTICAL , 0); 

$self->{sizer_3}->Add($self->{translated_text}, 0, wxEXPAND 
wxALIGN_CENTER_HORIZONTAL wxALIGN_CENTER_VERTICAL , 0); 

$self->{sizer_4}->Add($self->{Credits}, 0, wxALIGN_RIGHT, 0); 



!dj^o!>> !>^iS3l ^Bssj cJl 



$self->{sizer_4}->Add($self->{Exit}, 0 # wxALIGN_RIGHT / 0); 
$self->{sizer_3}->Add($self->{sizer_4}, 1 , wxEXPAND, 0); 
$self->{sizer_2}->Add($self->{sizer_3}, 1, wxEXPAND, 0); 
$self ->SetSizer($self ->{sizer_2}) ; 
$self->{sizer_2}->Fit($self ); 
$self->{sizer_2}->SetSizeHints($self ) ; 
$self ->Layout( ) ; 
# end wxGlade 

} 



sub OnSelection { 

my ($self, $event) = @_; 

# wxGlade: MyFramel : :OnSelection <event_handler> 
warn "Event handler (OnSelection) not implemented"; 
$event->Skip; 

# end wxGlade 

} 



sub OnSwap { 

my ($self, $event) = @_; 

# wxGlade: MyFramel :: OnSwap <event_handler> 
warn "Event handler (OnSwap) not implemented"; 
$event->Skip; 

# end wxGlade 

} 



sub OnTrans { 

my ($self, $event) = @_; 

# wxGlade: MyFramel : :0nTrans <event_handler> 
warn "Event handler (OnTrans) not implemented"; 
$event->Skip; 

# end wxGlade 

} 



(5) 
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sub OnCredit { 

my ($self, $event) = @_; 

# wxGlade: MyFramel : :OnCredit <event_handler> 
warn "Event handler (OnCredit) not implemented"; 
$event->Skip; 

# end wxGlade 

} 



sub OnExit { 

my ($self, $event) = @_; 

# wxGlade: MyFramel :: OnExit <event_handler> 
warn "Event handler (OnExit) not implemented"; 
$event->Skip; 

# end wxGlade 

} 



# end of class MyFramel 

1; 
1; 

package main; 
unless(caller){ 

local *Wx: :App: :0nlnit = sub{1}; 
my $app = Wx: :App->new(); 
Wx: : InitAllImageHandlers( ) ; 
my $frame_2 = MyFramel ->new( ) ; 
$app->SetTopWindow($f rame_2) ; 
$f rame_2->Show(1 ) ; 
$app->Mainl_oop( ) ; 

} 



l^i^oljj 4^51 !>xiSGl i_9j5zj cJI 



Ste* 2loU- I^-oU^U J^ JSL* Jl J^$1J 4JL)^WI jI^I hbS Jl 4^bJ! 2Uljt .\ 

.Silo jJLJ_^ *<Lo£a)I CX)15 $J 

.I^A^jg cLctii^l ^bl^A ^r^y Sjlcl <u1aC J-j^uJ .V 



.I4) ^o^j ^sJI ii>L>*l 5Lc$3 ^ l*S 03) 



^Jl JlJL*;.Wl <LJac jO^^Li jqJsj Jl isLb^ta .l^aniu 2us.Ca11 



•I-^ y*£ ^ Jl jpH a^a^J g^u jj 



<tax^jL) 4^jh5 Jj-o j-°>f-o J5 ^yxJ joCJI ll& ^lo cjbjiJI SlSjjI?^ j-^Lall 



GIMP JJlo 



2uh5 ^^9 ^yjs iJjinJI '^jIaJI^ ^y>^ j^l aliLas to JSCs Sjibto SLoLoo- o LLasj 




:li£a 0^1 Jl J&l ^) J! 5 aJI ^ b^Ujj JI>Jb 5 



onSwap T onExit 



onTrans .t onCredit .V 



JsLfl9 jlX^I^ S.}j->aJ! ^LaJI -U-oo^J iLc^s ^yfc IajI^ WX *<L^£o Jj^j i^ojJI isJ |oJj2J 



:pJj>-!l^All ^-JJo UuiO- (A<.Lj . \£JL> 



sub OnExit { 




my ($self, $event) = 


@_; 


# wxGlade: MyFramel : 


:OnExit <event_handler> 


$self ->Close( ) ; 




# end wxGlade 
} 





L^ij^ SjIj^I Jjlo ^aLj jJl ^ oLasIsloj^^j ^ 14^405 onCredit :L31j 

clA)b p^Laj Llllo iik^o £>bj ^So ^2>^S (<5 jj>T ^ I Sdo >2uJ I 

^Ic pjj>:;^A.ll >fcj Iajjlc oLo^kAl! jl&k! 4a4aj p^ib Dialog box j!^ jjja 

0 Lojcjc^ <g_-oljjJ! o-^ oLo^Isa 4_c9 jl.9-> j^>° j-ooj "Credit" jj 

.^U^l ^oL3jJI £>jJ £9l$A jj jiUJ ScIjaII ^ pA>O^All 



sub OnCredit { 

my ($self , $event) = @_; 

# wxGlade: MyFramel :: OnCredit <event_handler> 
my $credit = Wx: :MessageDialog->new( 

$self , 

"All Credit goes to: \n 

Google: http://translate.google.com \n 

CPAN: Lingua : :Translate - Lingua :: Translate :: Google \n 

wxPerl & wxGlade: perl_sourcer\@yahoo.com \n 

Still under testing:) 

ii 

"Credits"); 

$credit->ShowModal; 

# end wxGlade 

} 

^lc i^>j^l! ^iJ ^SUf yjuJvj Jaii5 lya^ 3JLJI oAas OnSwap 

:^b <l>bj>J U ii^Loj JSo Til . j-Oaill ^5Lof 

.^yllll Jl Uj^o3s 2LJIDI 2&JI 2ulJ Jx- J^>J .V 



Idh^joly) !>xiSG! k_9j5U cJI 



sub OnSwap { 

my ($self, $event) = @_; 

# wxGlade: MyFramel :: OnSwap <event_handler> 
my $first = $self ->{origin}->GetValue( ) ; 

my $second = $self ->{destination}->GetValue( ) ; 
($first, $second) = ($second, $first); 
$self ->{origin}->SetValue($f irst) ; 
$self ->{destina t ion}- >SetValue($ second) ; 

# end wxGlade 

} 



ol$Ja>. .i^j^JI i! p^aJI c^JI J_*su ^Jl 2UUII onTrans :tsulj 



use Lingua : :Translate; 



Lingua: :Translate: :config 
( 

back_end => 'Google' < 

referer => 'http://dheeb.wordpress.com' 

format => ' text ' , 

userip => '192.168.1 .1 ' , 

); 



Arabic ^Aio < 1& j Uxa> b 'iid J5 JIa^I^I 



my $tag_1 = getTag($self ->{origin}->GetValue( ) ) ; 

my $tag_2 = getTag($self ->{destination}->GetValue( ) ) ; 



J^^>J! SLJasu p^-o^J Lfe^5 Sjx.Ua 2Jb ^3 getTag l^M 2Jb Uucjo^I Lul Ja^^j 



:oU^JI UjJ 0 f U ^Slfll 



$object = Lingua : :Translate->new(src => $tag_1 , dest => $tag_2); 



:8jojoJI 'AaJjJIj (0J> n^a) 



my ($message, $trans); 

$message = $self ->{origin_text}->GetValue( ) ; 
$trans = $object->translate($message) ; 
$self ->{translated_text}->SetValue($trans) ; 



ajUa>.l £0 jcuxj! JS 43jISaj psSj ZLHjJI oAa Ui US :getTag Sjx.Ua) I 4JUI :2Lfc$DJLo 

jUo^^l LJ ♦)! I felx.,9 Sj^-^^aII *<LaJJI 2bu§ L4I jjaJL^j lil .jUi>^l 2U-J 
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sub getTag { 

my $value = shift; 

my %tags = qw/ AutoDetect auto Arabic ar English en French fr 
Dutch nl German de 

Persian fa Turkish tr Japanese ja Italian it Slovak sk Serbian 
sr Thai th 

Hindi hi Hebrew iw Spanish es Greek el Russian ru Swedish sv 
Croation hr 

Polish pi Portuguese pt Filipino tl Irish ga Malay ms Belarusian 
be Czech cs 

Norwegian no Swahili sw Catalan ca Bulgarian bg Korean ko 
Indonesian id 

Chinese zh-CN Vietnamese vi Yiddish yi Afrikaans af Ukrainian 
uk/; 

return my $tag = $tags{$value} ; 
} 



J-olsoJI^ ^.jjj^ill^ jL^>^l! '<LL>>o :^^b^J! lift ^yj ^L^l cij^ll cu3l5 Ujj 2LaaI 
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t^As S^PV Sjil^ju cJj^J^I 0 I j^j^qj ^13^ J La . JLaI! \±Jb d_JI 



ilUa ^15 lili a^-uio ^'s-SJ ^>^L J-^*-*^ ixo-j^l! ^JJoj Ujjlc g-objJI ^1 



S4P ^ j^ 1 ' L^J .i*>j5JI jj ^ j&JI j>>aj jIjjI £jL lAS^fc o^^S g*^' 

iA.uJ^ll £A ^>^S g-°LjJI J-JLoU J-x9 JLfiJl pJj>0-caA)l jl jbj^J 

oLbljOS^I dLc £j ♦jil £ Lslj^>l Lx5L g-aj^JI ^Jx. u^oJ *<Lb&3 



a*2JL» ^La vJUJI ? J-soJ 0' O 5 ^ l^JI oUb±U)^ls filial jx ^jf 
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-^-^gj ^ ^ <L J ap.1 1 j-5wJ x£ Jalo ^Oiu jl J.9L0 loJJLc l&Jlio ^3*1 SJbJI 

J-ola^Jlo. j LooJ b j-o^l lift Arvl loj dJiJ i-flLaJ I ^Jx. 4JL^o 2Lp-^-o oj Ja3 



^Lo obLao- JjxaJ '<La9j xjy A3 p A^-Jlo/jaJ I ^ l^lLo /<L5DI ilbJI 



pLk3 j_o S jSIUI iU3 J-lo J-ola^J! ^J^j ^ clla^l o-o £j$if ^La 

.Ua>JI lift jo Job^j ^5 ^Ls! Sal >aoo Absb j^So ^ Jaft<Sal 1 



jqj 8aj> Jx 2L)b JS ±j>b B U^objj Jfb :(o\ cb2z***i\ v^xJI) £^cdl 




^5L. dJU ,Loj! oLooisJ! jL^I ajbs ^lo^l 49 Lb I ^Jl ^L^o ^ ^sj-^JI Ub 



1 



v^uJ ±2 Lfejf ^i>a3 aj^bkll j-o L5a^o IISju :onSwap iJb ^1 Jib < 



.51^3 ja-^aJI ^1 0 s - ^^Jl s-^ 4_Jx. Jj>5> j^j>J 2La^all ala AutoDetect 

.l&Lo 4a>j^J! ajjj Jill 'iaill <»ijs3 "4 ^po Luji 5xo- Sj-co 



Lo Jj>^> jjsj^j uL^) I4JI jco-j^J! 2LftL! 4^ ^$53 0 I gi^j 4 AutoDetect i^L>- 



pUiJ! AutoDetect c^J L43! ^ j^k) ixiis Ua>JI 11a *a J-aIs^5 



pj^^uall <UxjJ iJLaj jL&kb p AutoDetect ^9 Sua^aJ! cJl5 lil^ Jj^^all ^Jasu 

j-jSJ xsj £>>-l 5>o *<Laj>j^JI iJ^b^ <U-o UasJJ! lift ^Jl 44*i3 (Oj>j^aJI j^uJI 43 ^ 

: JbJI Ti| ^jawJI <uc jokj ^ g-°LjJ! jL^ ^ ^ AutoDetect 2aJ 



my $first = $self ->{origin}->GetValue( ) ; 

my $second = $self ->{destination}->GetValue( ) ; 

if($first eq "AutoDetect" ){ 

$self->{translated_text}->SetValue("Can't use AutoDetect on 
destination! Please choose a language & try again...");} 

else { 

($first, $second) = ($second, $first); 

$self ->{origin}->SetValue($f irst) ; 

$self ->{destination}->SetValue($second) ; } 



4s** jj\ Ola) JJ^ 



l^i^oljj !>xi5Cjl i_9j5zj col 



Jji^j ^ o^5lJLo ^1 as Lbjf getTag 20b 



UaJlC cU-o- g^LjjJI |0^a^xj iL>j^ ^9 dblsiS f&j I'AaB libLj ahLi9 A§ viili^ c^JjliLo I4) ^>^J 



wxCB READONLY 



cLk^U) L^j^. JI^aJI 2^13>JI Jl^ p^f ^ 4-HaJI <>ij& cOnTrans 2L)b 



1^3 S 2UIjJI cLcxLajb iA^j^J! jj ^Ic jiLJb Lj! L4JI a Lift! I ^1 J B *i\ ilaSjJI 



^Lli s j^J iJLA cJl5 til ^1 L^nlb ^ Lftjl cu^po JUIjJI Jasu^ ^IJa) 



.True i>,-p^ j xoaI 1 j^JI i3L>- 2a-J ^1 ^ j5Ulb jcoj 'i^La^ 



if ($self ->{origin_text}->GetValue( ) ) 
{ 

Rest of code here 
} 

else {$event->Skip; } 



JLdJl p-v-c ^ ^ft tsjLai Lpc LaISo ^1 S jlS^il 2u3llll SLbfiJI 



2^13 jJ! tiUJ jixaJ! JL^j .'i^>j^JI jj ^Jx. >&JI cJ^ ^13>1! cJ^U 



^ \k+ ^KJI lift ft U3| ^ g*b>JI JA^j Loa^ cuj^b JUJI Jl 

<aJi ?4ao J^lsuJ! Ua^JI lift liU! LjL^-l Fatal 4ao J^laoJI ^oo ^D! 

.LUl ^515 jo-^j ^ 4& J^Ui ^SICII lift Jx. sx&sj *<u>^>JI >k^l J5 2LbUj J£j 



$trans = $object->translate($message) ; 



J>*o j-jc. LjLjI object ^515 ^5 o3l£Jb j^L^I translate liAtf aj>> ^po 



I^L^qIjj 4^51 !j^£JI kJj5ij col 



.^lAI ftLSJI <J 5 b^ JJj JUj'^ jLssJ-l 



jlJalj'il ajj^S J^uaJl A^to.) p$S3 Jb<2ub 



: JLaJl yft\ lift JL*ul £^ ^ ^ g-oUjJI cS^jlao c^3l5 ^jSS 



$object = Lingua : :Translate->new(src => $tag_1 , dest => $tag_2); 



J La? I ^ 4jf Liuj joJ 0 |s JL^jI .dLa ^Uuj ^jLSJI ^1 0 I 

4 J a.>] 1 ^Llj ^ 5-^L3>JI j false Uas^JI 0 L5 iJbJI oXj* if (object) 



a j^J 4 ^Ull J >^J! i^b 3-^aJI ^ £bj S >o^l 11a 0 ! J^JI Til 

*. 



J>-u La LliSCJ^ lib- 3jJ ^ try 2ib>b ^lc Lgj Isji^ 2Lj>c. 2Lojllll 3-o**>JI jJslu&I 



: JbJI5 dJij p^ijL^ 5 <eval pAr*aaxj 



eval { 

$object = Lingua : :Translate->new(src => $tag_1 , dest => $tag_2) 
or die "Cannot Create an instance"; 

$message = $self ->{origin_text}->GetValue( ) ; 

$trans = $object->translate($message) ; 

}; 



if ($@){$self->{translated_text}->SetValue("An Error occured: $@ 
\n Perhaps your not online."); 

} 



else{ 

$self ->{translated_text}->SetValue($trans) ; 
} 



.jjlsCll j^l Jx. aa^o 4$ method translate <us ^Ul^l^ cUjI 



pjd^uaJI ^ >kuj3 Offline 'AJb- ^Jl g-oljjJI cJjsj^b JUul Jba j$u ^ lite 

.|03-j^aII jcoJI j^-jj^ jbsAJI U5 g-ol3>JI £>bjL3 Ua> a>$j joJ il Lot <(JUaj^!l SjIcI SJ^bt-o 



.ajAsj pLiiJIs Packaging 



l^i^oljj 4^51 !>xi5Cjl l£>a> cJl 



.^-oljjJ! £$J$ J^ta-ll ^Ll^s iidJ! u-uod y.Lh.<i ^jy>^}\ v^L^l La> 

^yj ^ suJuj ualo clA3b p^iij JlS ^i^aj ^ LjLc. ^yL^JI pjd^Jli !>w>a)I ^ (<*) Compile 




♦♦ - 1 1 ♦♦ 




♦ * 




3. J .ac. Jx^-uol ^I^^-ojI ji^js Compiled *<L3j>j^a)I g-oljJI ^ ^oljJI J4^f 



^V^' .i 1 *^' 0' C^S js^y^ll ^ d\yj US pjj>. 



jU-oil^ olJLJI axI^ Js'-^> ^L-13b pogj cojSLJI II49 ^jj^l^aJJ SIajoJI ol& Ayij 



.6y>\ i^LuaJI ^jLaoil cUacI^ pJjxSuuaJl »-J-b lu«> *<LojLaJI oljL^>^J i^LuaJI jc^flJI 




J>^ g^ujJ 4^Ju ^JjU> ^3Uj2> jsS^-oi lil .^a>0^a)I jL4> ^^lc >^a)! ^^>S 



Perl2exe 9 I PerlApp 9 \ PAR pj^ia^j 0 f ^UJt 





d>>^ jj52-aJ 9 2-*l3>JI JJ^o Lft3f>o^l ^ Lo Compile 4-Jasu 4 



4s** jj\ ola) JJj 



!^i^o!>> !>xi5Cjl l£>a> cJI 



. J^sJb ^yx^oJ U 3I ^ J^^l JL&s St&^aJI 



*<LL^>^! *<Lojj>JI Jl '6±j±> olj-co i^Lbl ^ ^i^l jL^^I »-ic.f ,J 
J^j ja^JI J ^ j^T Uxj! jJLa J3 S J^f Jsl^ jLadJI oljAi ^ 



5^1 J La ^LIU £^l*ooa)I Jl 2;9>>Jl9 J^>jJI oUac jljio ^ ^J^jaJI jJo-uJ 



jJs-oj g-°l3jj J£Jj Jx. g^ljjJI cbj J-^a^j c^aIq ^^b^JI lia> ^J :L31j 

.Sj£aJI ai^j f&J^B CjB^B ^9J^ 



kto ^13^ ^3 ^ 0 ! ^ 0 15 ^> J. .^J! jcKJ Widget cus,^ 3 \ 



.^3-wb^All «^9AA jux-J IAa f^Jl jL^>JI ^J ^^xj <1aj>jj 5I 



J>^ 2LaL L:> 2L_>L>.$ lj& Tests oljL^>_l ii>>o oaasj :L*aI> 



Laic jc^sl ajjI ^yjl l^o^_x>- Ij-dS cL__^_l SjJIi gpj ^Ji L gjj>-f 4id ao LIS Jih^^a 9 




!Our App In Action 0 $So Ljjx. I4! aL_o _! ^ _^ 



From : 



AutoDetect 



G Transla te_AIp h a 



Swap -<-> 1T0 : Arabic 



My name is AH. And Islam is the re ligion of love ! 




All Credit goes to ; 

Google : http://transtate.goog le.com 
CPAN : Lingua: :Translate - Lingua :;Tran&late::Google 
wxPerl S wxGlade : perl_sourcer@yahoo.com 
Still under testing ;) 



Trans! 



Credits Exit 



1 

0 G Transla teAlpha 


From : AutoDetect v- Swap <-> To : 


Japanese v Trans! 


My name is AN. And Islam is the religion of love I 


! - 1 




Arabic 

English 

French 

Dutch 

German 

Persian 


low/'J -etc -f *7A»«>S«'CT ! 


Turkish 
Japanese 




Italian 


Slovak 

Serbian 

Thai 


I 


Credits Exit 





2il_b^l JjjLj ijL^J! _^o. jj>!o. jgoLuJ 2LuuJ b Ijj> ^iKo IIa j£J$ oLIS 



__JI <rl_->J ZLa^aJI al£9 .^iSlb _}c^ lift Ljjlc oLKll oIjLj 8jx.IS 



l^i^oljj !>xi5Cjl i_9j5zj cJl 



j 15 J^S^o JLxj^J l^LoJj&Loil ^oJI SjAbJI *<L^JI pljj&Lail ^ ^JJ ibl&aJI 44>J| 



World-Wide Web) LWP pL^^b dJi s JLartl 2LUsu 0 f ^LJlS^b Uyl 
•<U^j D3 i3 0 L^!I s-Ji! & Ut 5 A4> x;> JJ li& ^ (library for Perl 



jb>9 ^Jx $1 B .^>T ^L*Jjf ^ uij£* JC2u 0>^l 9 ^A>^aJI jobU&l ^ a^sA^a 



.SjjIsJI SjJIoJI ^j^5l <*Jx- J-^oJLj jjJI ^LsJIi 2Ls5CaJI oIa jI$5! ^ ^l$5l cJl5 



VYi C<3 15 *<Lo^jJI jJsu-u'il £^ja^ \±Jb ^3 !oIaj>^ ^Jl ^-oljjJI p^aJS :LJb 



g-objJI j^lj lift ^ jixaj^l &ift .iJx bAx Lb ^1>- lA&fc >a^l JJrx^ai 3) iob* 



^^^-^ c-U^^I fc2?9 ^iP^^^B <^->^JI 4,Jax j4-aJ <L<S,lo<rt ^1 p^uao 

IliU Jx lilo frlka>^l 



:Maintainable JjasuJI^ Scalable 



.Dependency ^>>1 o!jj> 5 Jx Sjj>$ J5 SjjUscI JJ£> .V 

JL>-o £4-^ L&larv J-J Global icULo olj-JLaaJI J-a>- pA-C .V 

.j5L<aJI ^-^J ^U-^S Sjjv!^ Sj-o ^1 pic j^Lo p Jj>JI^aj joJ^ ^^b^aJ! lift 

.oLj^JI^ JI^jJI^ o Ij. asoaLI i^bl^ ol^J ^Ijj^IojI .1 



: 3.^.^1 q! *<Lj vail 

io£aJI ajj>o^! q! ^ ^Jlq riolaJ! o UJoJ 1 uu^u .\ 



? ? ... , . . . . ? 



. 2uusto 2Jb si>o! ^9 Jl^uJI jjjj>j J^^l Jj 



cu^j 4jf Ujj^ Ij^iS JjLJI ^ J^LaoJIi !jl|-aJI JJ* SJ^LxaII T 




JS-£]| J-alS J_A; ^ >^L9 jjJ^ii La 1*4* filjbo jb>cl .1 



.SKAaJI J» Jx. AtU <u* ^3 Slol5 ^^^Jl ->$£JI ^£3 



!l>af ^3 Lib dUl^xi Js^-I .0 



